Werte zählen, anschließend Werte und Anzahl in neuer Tabelle ausgeben

Private Sub CommandButton1_Click()
Dim a As Long
Dim b As Long
Dim PLZArray(0 To 99999) As Integer

For a = 1 To 99999
    PLZArray(a) = 0
Next

a = 1

While (Tabelle1.Cells(a, 1) <> "")  
    b = Tabelle1.Cells(a, 1)
    PLZArray(b) = PLZArray(b) + 1
    a = a + 1
Wend

Tabelle2.Range("A1:D32767").Clear  

b = 1

For a = 1 To 99999
    If PLZArray(a) > 0 Then
        Tabelle2.Cells(b, 1) = a
        Tabelle2.Cells(b, 2) = PLZArray(a)
        b = b + 1
    End If
Next

End Sub