Hi Tanja,
You can't paste an entire row in column B, it won't fit. You will need to adjust:
FoundCells.EntireRow.Copy Destination:=cell.Offset(0, 1)
into maybe:
range(cells(foundcells.row,"B"),cells(foundcells.row,"C")).copy cell.offset(0,1)
Best regards,
Trowa
thank you very much for your tip. It works now!
Best regards,
Tanja