Delete Rows if Date in Column A is Older Than 6 Years

I've been Frankenstein'ing code together to try to delete rows based on the date in column A. If the date is older than 6 years from today then that row needs to be deleted. This is what I've come up with. It runs, but it deletes the entire spreadsheet, haha.

Sub WarrantyExpire()

Dim Row As Long

    For Row = Range("A65536").End(xlUp).Row To 2 Step -1

        If Range("A65536").Value < DateAdd("y", -6, Date) Then
            Cells(Row, 1).EntireRow.Delete

        End If

    Next Row

End Sub