Simon,
Could you please help me. I attached the latest file and when running
the code, I get an error:

If Cells(cell.Row + 1, "D") = "" Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "B")).Copy
Range(Cells(cell.Row + 1, "A"), Cells(cell.Row + 1,
"B")).PasteSpecial =
xlPasteAll
=====
here I get "Error 424 - Object Missing
=====
Range(Cells(cell.Row, "G"), Cells(cell.Row, "H")).Copy
Range(Cells(cell.Row + 1, "G"), Cells(cell.Row + 1,
"H")).PasteSpecial =
xlPasteAll
End If


+-------------------------------------------------------------------+
|Filename: CATALOGUE.xlsm |
|Download: http://www.thecodecage.com/forumz/attachment.php?attachmentid=147|
+-------------------------------------------------------------------+

--
Helmut Loeffler
------------------------------------------------------------------------
Helmut Loeffler's Profile: http://www.thecodecage.com/forumz/member.php?userid=311
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=96127