Duplicaten verwijderen maar opmaak behouden

[NogGeenGuru]

Goedemiddag forumleden,

Ik heb een macro gemaakt die voor mij duplicaten verwijderd.
Nou is het probleem dat ook automatisch mijn cel opmaak, celkleur en randen, verwijderd wordt.
weet iemand hoe ik dat tegen kan gaan?

Sub Update_DuplicatenVerwijderen()
    
    eersterij = 3
    laatsterij = 3
    
    Do While Worksheets("Projecten").Range("J" & laatsterij) <> ""
        laatsterij = laatsterij + 1
    Loop
           
    Worksheets("Projecten").Range("A" & eersterij, "CI" & laatsterij).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _
        7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, _
        34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, _
        60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, _
        86, 87), Header:=xlNo
End Sub

 

[HSV]

Test het maar eens.

Sub hsv()
Dim sn, i As Long, j As Long
With CreateObject("scripting.dictionary")
sn = Cells(3, 1).CurrentRegion
    For i = 1 To UBound(sn)
     For j = 1 To UBound(sn, 2)
        If Not .exists(sn(i, j)) Then
          .Item(sn(i, j)) = sn(i, j)
        Else
            sn(i, j) = ""
        End If
     Next j
    Next i
Cells(3, 1).Resize(UBound(sn), UBound(sn, 2)) = sn
End With
End Sub

 

[HSV]

Nog niet getest?