Sub Master()
SalesData = GetInput("Enter Sales Data")
If SalesData = False Then Exit Sub
Call 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