Microsoft Office Forums - View Single Post

Logit · 05-14-2020, 06:57 PM

You could edit NoSparks macro like below ... so long as the term END will always be three rows under the last data entry.

Code:

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