vba code find duplicates

[asyamonique]

Dim Rng As Range, Dub As Integer, Dn As Range, col As IntegerDim Dn2 As Range, c As Integer
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))


For Dub = 0 To 1
    Set Rng = Rng.Offset(, Dub)
        col = Dub + 8


    For Each Dn In Rng
        For Each Dn2 In Rng.Offset(, 2)
            If WorksheetFunction.CountIf(Rng.Offset(, 4), Dn) = 0 Then
                If Dn = Dn2 Then
                    c = c + 1
                    Cells(c, col) = Dn
                 End If
            End If
        Next Dn2
    Next Dn
c = 0
Next Dub

Good Day,
The code given above populating duplicate entries between 2 column "A-B &C-D"
Is it possible to alter that code which will get the datas in first 2 columns?
Thanks

 

[asyamonique]

Thanks Trebor