VBA Macro to get Last cell

'VBA Macro to  get Last cell
Sub Lastcells1()

Sheets("Sheet1").Range("a1").Select
Selection.End(xlDown).Select
x = ActiveCell.Row + 1
MsgBox x

Sheets("Sheet1").Range("a1").Select
Selection.End(xlToRight).Select
y = ActiveCell.Column + 1
MsgBox y

End Sub

Comments

Popular posts from this blog

TDS Calculation System

VBA - Additional Controls Dialog Box "MISSING"

Loan EMI Calculator Dashboard