Mike

cRows = Cells(Rows.Count,"A").End(xlUp).Row
Cells(crows+1,"A")=123
Cells(cRows+1,"B")="alpha"
etc.

This locks down column A for the last row, and then populates columns A, B,
etc of the next row.

That should give you the idea.

--

HTH

Bob Phillips

"Mike Fenton" wrote in message
...
What is the code or is there a way to make a macro that
will go the first empty row and insert a new row (similar
to a fill) with the next data in sequence?