Data Type VisualBasic Script

Sub ObjectVariable()
         Dim rng As range
         Set rng = ThisWorkbook.Worksheets("Sheet1").range("C10")
         rng.value = InputBox("Enter Sales for January")
         rng.offset(-1, 0).value = "January Sales"
     End Sub