This sub works Thanks to Mr Ron de Bruin
But I need to preserve the destination worksheet formating How do I modify this ?
Dim cell As Range
On Error Resume Next
For Each cell In Sheets("Source").Range("E:E").SpecialCells(xlCellTypeConstants)
If Application.WorksheetFunction.CountIf(Sheets("destination").Range("E:E"), cell.Value) > 0 Then
'do nothing
Else
Sheets("Source").Range("A" & cell.Row & ":M" & cell.Row).Copy Sheets("destination").Cells(LastRow(Sheets("destination")) + 1, 1)
End If
Next cell
I need to use paste special xlvalues I think
but how?
Thanks
Charles
Bookmarks