Try the below..

Sub Macro1()
Dim lngLastRow As Long
lngLastRow = Range("A101").End(xlUp).Row

'OR - to move to last+1 row and shift
Rows(2).Cut
Rows(lngLastRow + 1).Insert Shift:=xlDown

'to move to lastRow+1
'Rows(2).Cut Rows(lngLastRow + 1)

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Max2073" wrote:

Hi,

I would like to create a macro that moves the second row to the last row in
a range of rows. eg. range - rows 1:100 (I have data in rows 105:5000)

I can not work out if this is possible or how to do it.