Macro valores não repetidos

[VanOliveira]

Olá! Estou a tentar programar uma macro em VBA que corra a linha A, encontre o campo "Pagador" e devolva o número de valores diferentes presentes na respetiva coluna. No entanto, quando corro a macro o excel bloqueia e penso que entra em loop infinito e não consigo perceber porquê. Alguém me consegue ajudar? O código que estou a usar é:

 

Private Sub CommandButton2_Click()

Dim scol As New Collection
Dim MyAr As Variant
Dim x As Long
Dim z As Integer

Sheets("Aux").Activate
Sheets("Aux").Range("A1").Select

Do While ActiveCell.Value <> ""

If ActiveCell.Value = "Pagador" Then
    With Sheets("AUX")
    C = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
    A = ActiveCell.Offset(1, 0)
    B = ActiveCell.Offset(C, 0)
   

MyAr = .Range("A:B").Value
    
    For i = 1 To UBound(MyAr)
        On Error Resume Next
        scol.Add MyAr(i, 1), Chr(34) & _
        MyAr(i, 1) & Chr(34)
        On Error GoTo 0
        Next i
    End With
    x = scol.Count
Else
ActiveCell.Offset(0, 1).Select

End If
Loop

Sheets("Customer").Range("C32") = x
End Sub