Sub StartNewRecord()
   Dim inputWks As Worksheet
   Dim listWks As Worksheet
   Dim rngClear As Range
   Dim rngNext As Range
   Dim rngID As Range
   Dim rngOrderDate As Range
   
   Set inputWks = Worksheets("Input")
   Set listWks = Worksheets("LookupLists")
   
   Set rngClear = inputWks.Range("DataEntryClear")
   Set rngID = inputWks.Range("IDNum")
   Set rngNext = listWks.Range("NextID")
   Set rngOrderDate = inputWks.Range("TodaysDate")
   
   rngClear.ClearContents
   rngID.Value = rngNext.Value
   rngOrderDate = Date
   
   inputWks.Activate
   rngID.Offset(1, 0).Activate

End Sub