Option Explicit

Sub Dave_T()
    Dim lr As Long, i As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    For i = lr To 1 Step -3
        If Cells(i, "A") = "" Then
            Cells(i, "A").Select
            Exit For
        End If
    Next i
End Sub