Adding new row(s) to end of worksheet

[Mike Fenton]

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?

 

[Bob Phillips]

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.