Automatic Replication

Thanks again. It works, but...

Cells(R, 1).EntrieRow.SpecialCells(xlCellTypeConstants).Delete

This does delete the data from the new row, only problem is that it also changes the value of my vlookup on the same row to "#Ref!"
As a result, I removed that line and the copying works fine, but I'm at a loass to why it changes the value of my vlookup. I debugged and it turns out the part that changes is:
=VLOOKUP(LEFT($E6,4),Kits!$A$1:$B$2,2,FALSE)
The bit in bold becomes "#Ref" when the code runs.

Is there any chance you could tell me how to delete individual cell contents whilst the code runs so I can pick them off one by one?

Cheers!