Форум по VBA и MS Office

Как установить курсор-рамку после последнего значения в столбце D?

Я решил задачу.

Sub КУРСОР()
    Dim i As Long
   
    With Worksheets(1)
        i = ActiveCell.Row
        Do While .Cells(i, 4) <> Empty
            i = i + 1
        Loop
        .Cells(i, 4).Select
    End With
End Sub