macro to pick last row in a range

V

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
 
D

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
 
Top