Code:
Sub datesexcelvba()
Dim mydate1 As Date
Dim mydate2 As Long
Dim datetoday1 As Date
Dim datetoday2 As Long
Dim x As Long
lastrow = Sheets("inspection & test plans").Cells(Rows.Count, 1).End(xlUp).Row
For x = 5 To lastrow
mydate1 = Sheets("inspection & test plans").Cells(x, 15).Value
mydate2 = mydate1
Cells(x, 20).Value