When I run the vba code below it gets hung up on
the line item - "lastrow = Sheets("Sheet1").Cells(rows.Count, 1).End(x1Up).Row"
here is my vba;
Sub datesexcelvba()
Dim mydate1 As Date
Dim mydate2 As Long
Dim datetoday1 As Date
Dim datetoday2 As Long
Dim x As Long
lastrow =...