macro to pick last row in a range

[vikram]

i need help on this

do we have a macro which finds the last row in a range and picks up th
last row and insert it below first row of the range


thank u al

 

[Don Guillett]

try this
Sub moveit()
x = Cells(Rows.Count, "a").End(xlUp).Row
Rows(x).Cut
Rows("2:2").Insert shift:=xlDown
End Sub