iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.rows(iRow).Insert

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Nigel" wrote in message
...
Hi,
I have this macro which runs in a routine on a hidden sheet when a button
is
pressed.

iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

Can anyone help me to carry out the following?
When it has found the next available cell on the hidden sheet, i would
like
it to add a row. Help mist graciously appreciated.


nigel