I have a macro that I only want to run if it has not run yet. I want to
check to see if the date in cell 1 is the same as the date in another
sheet.

Sub KeepRecords()

'Check sheet MTD (1, 0) If value is same date do no run.

Dim LastRow As Object
Set LastRow = Sheets("MTD").Range("A65536").End(xlUp)

With LastRow
.Offset(1, 0) = Sheets("Report").Range("O1")
.Offset(1, 1) = Sheets("Report").Range("C4")
.Offset(1, 2) = Sheets("Report").Range("C5")
.Offset(1, 3) = Sheets("Report").Range("C6")
.Offset(1, 4) = Sheets("Report").Range("G4")
.Offset(1, 5) = Sheets("Report").Range("G5")
.Offset(1, 6) = Sheets("Report").Range("G6")
.Offset(1, 7) = Sheets("Report").Range("G7")
.Offset(1, 8) = Sheets("Report").Range("I6")
End With

End Sub