VBA - Smid en fejl hvis der er dupletter

Hej,
Jeg har 4 kolonner A, D, H, K (altså ikke i rækkefølge)

Hvis jeg skriver det samme i to af kolonnerne skal der komme en fejl, altså skal der findes dupletter..

Jeg har lavet følgende (dog kun til en kolonne)

Public Function DeleteDups() As Boolean
    DeleteDups = False
   
    For x = 6 To Range("A65536").End(xlUp).Row
        If Not IsEmpty(ActiveSheet.Cells(x, 2)) Then
            If Application.WorksheetFunction.CountIf(Range("B6:B" & x), Range("B" & x).Text) > 1 Then
                DeleteDups = True
            End If
        End If
    Next x
   
    If DeleteDups Then
        MsgBox "Duplicates not allowed'", vbCritical, "Error"
    End If
End Function

Hvordan får jeg den udbygget så det kan være flere kolonner? (Jeg forstår ikke ret meget af VBA ;))