Sub Master()
SalesData = GetInput("Enter Sales Data")
If SalesData = False Then Exit Sub
PostInput SalesData, "B3"
End Sub
Function GetInput(Message)
Data = InputBox(Message)
If Data = "" Then GetInput = False Else GetInput = Data
End Function
Sub PostInput(InputData, Target)
Range(Target).Value = InputData
End Sub