Macro to insert row always at botom of table

22868 · Apr 5th, 2002, 01:59 AM

Basic problem:

The macro I have now always inserts a row at the same line in the table. I need one that inserts (or adds) a new row at the botom of the table, including the formulas of the previous rows. Any suggestions out there?

Thanks!

Pete

AJ · Apr 5th, 2002, 03:24 AM

I reckon this should do the trick.
It finds the last row, copies it and pastes it into the row beneath.

Sub test()

Lastrow = Range("A65536").End(xlUp).Row
Rows(Lastrow & ":" & Lastrow).Select
Selection.Copy
Rows(Lastrow + 1 & ":" & Lastrow + 1).Select
ActiveSheet.Paste

End Sub

Rgds
AJ

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 5th, 2002, 01:59 AM	#1
22868 New Member Join Date: Apr 2002 Posts: 13	Basic problem: The macro I have now always inserts a row at the same line in the table. I need one that inserts (or adds) a new row at the botom of the table, including the formulas of the previous rows. Any suggestions out there? Thanks! Pete

Apr 5th, 2002, 03:24 AM	#2
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	I reckon this should do the trick. It finds the last row, copies it and pastes it into the row beneath. Sub test() Lastrow = Range("A65536").End(xlUp).Row Rows(Lastrow & ":" & Lastrow).Select Selection.Copy Rows(Lastrow + 1 & ":" & Lastrow + 1).Select ActiveSheet.Paste End Sub Rgds AJ