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