Cut/paste last 36 rows and move to a new worksheet

[mnh]

Hello - newbie here. Using VBA, I need to cut the last 36 rows of data and paste them to a new sheet. The actual number of rows will vary each time we use the sheet.

Any help would be greatly appreciated!

 

[RobP]

Hi, welcome to the forum,

would this help ?

Sub remove_rows()

Dim rownums, lastrow As Long

rownums = Application.InputBox("How Many Rows to Delete ?", "Enter No. of Rows to Remove", "0", , , , , 1)
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row  'checks to find last rowcontaining data in ColA.

row_range = "A" & lastrow - rownums + 1 & ":" & "A" & lastrow

Range(row_range).EntireRow.Delete

End Sub

 

[mnh]

That worked perfectly! Thank you!

 

[RobP]

Great, glad we could be of assistance for you.

Thanks for the feedback.

Rob