Hi again Greg,

Because you say that there is other data from row 300 then the method I gave
you will continually push that data down. Therefore you need to delete a row
each time you insert one.

Note you can still use a similar method to the one I posted for finding the
next blank row by replacing '.Rows.Count' with 300.

'Find next blank row
LastRow = .Cells(300, 4).End(xlUp).Offset(1, 0).Row

'Inserts data but pushes all other data down.
..Cells(LastRow, 1).EntireRow.Insert Shift:=xlDown

'Deletes the row below inserted data
..Cells(300, 4).End(xlUp).Offset(1, 0).EntireRow.Delete


--
Regards,

OssieMac