Snasui Excel Forum

Code: Select all

Sub Macro10()

    Range("E1").Select
    Selection.End(xlDown).Select
    Range("E18").Select
End Sub

Code: Select all

Sub Macro11()

    Range("E1").Select
    Selection.End(xlDown).Select
    Range("E23").Select
End Sub

Code: Select all

Sub test()
Dim lr As Long
lr = Range("E" & Rows.Count).End(xlUp).Row
With Range("E" & lr - 2)
    'other code
End With
With Range("E" & lr + 3)
    'other code
End With
End Sub