insert row at end of list

[Tasso]

Hi Guys,
I'm trying to find a simple macro to insert a blank row at the end of an
inventory list with the same format as the row above. this is a list to allow
users to enter hardware inventory. I have 10 rows formatted with cell
borders. I would like to allow users to insert additional rows if they have
more than 10 items of hardware to enter. the worksheet is protected. there is
also a count formula at the bottom of the list to confirm the number of
hardware entered in a previous sheet matches the number of rows populated for
hardware.
any helps would be much appreciated.
thanks
tasso

 

[Simon Lloyd]

Why not use the macro recorder whilst copying the last row and insertin
the copied row at the last row?, the last row can be found using this
Code
-------------------
Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp
-------------------

Hi Guys
I'm trying to find a simple macro to insert a blank row at the end o
a
inventory list with the same format as the row above. this is a list t
allo
users to enter hardware inventory. I have 10 rows formatted with cel
borders. I would like to allow users to insert additional rows if the
hav
more than 10 items of hardware to enter. the worksheet is protected
there i
also a count formula at the bottom of the list to confirm the number o
hardware entered in a previous sheet matches the number of row
populated fo
hardware
any helps would be much appreciated
thank
tass

--
Simon Lloy

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com

 

[Joel]

The best way is to insert a new just below the last row. This will preserve
the formating and any formulas you are using

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Rows(LastRow).Copy
Rows(LastRow).Insert
Rows(LastRow + 1).ClearContents