Sub test()
[A1:A5] = "=ROW()*COLUMN()"
a = Cells(Rows.Count, 1).End(xlUp).Row
aa = Cells(Rows.Count, 1).End(3).Row
b = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
bb = Cells(Rows.Count, 1).End(3)(2).Row
MsgBox a & Chr(13) & aa
MsgBox b & Chr(13) & bb
End Sub