permutation

Sub permut()
Columns("A:E").ClearContents
a = Array("A", "B", "C", "D")
Call permutation(a, 0)
End Sub

Function permutation(ByVal a, k)
If k = 3 Then
zeile = Cells(65536, 1).End(xlUp).Row
If Cells(1, 1)  "" Then zeile = zeile + 1
For i = 0 To 3
Cells(zeile, i + 1) = a(i)
Next
Else
For i = k To 3
x = a(i)
a(i) = a(k)
a(k) = x
Call permutation(a, k + 1)
Next
End If
End Function

was ich aber brauche ist nicht, dass alle anordnungen der permutation untereinander gelistet werden, sondern dass sich bei der ausführung des makros ganze spalten permutieren. also mit jedem klick soll sich eine neue anordnung der spalten zeigen.
kann da jemand helfen, evtl. das obige makro modifizieren?
danke im voraus helmut.em