VBA-Code funktioniert nicht mehr

[Schirin]

Hallo zusammen, 

kennt sich jemand mit Excel-VBA aus? Der folgende Code lässt sich nicht mehr ausführen, weiß jemand woran das liegen könnte? 

Gegebenenfalls muss am Code auch noch was geändert werden, dass er seine Funktion erfüllt, wollte es erstmal ausprobieren, aber es regt sich gar nichts:

Private Sub ZeilenInSpaltenSortieren()
        Dim qz As Integer
        Dim zz As Integer
        Dim zs As Integer
        Dim marker As Integer
    
        qz = 2
        zz = 1
        zs = 1
        marker = 10
        
    Do While Cells(zz, zs) = ""
        Cells(zz, zs).Value = Cells(qz, 1)
        qz = qz + 1
        zz = zz + 1
        zs = zs + 1
            If qz = 10 Then
                zs = 1
                zz = zz + 1
                marker = marker + 9
            End If
    Loop

End Sub

[Whiz-zarD]

Was soll denn der Code überhaupt machen?

[Schirin]

Hab eine Tabelle von pdf in Excel kopiert, dann sind alle Inhalte in Spalte A untereinander aufgelistet worden und nicht als Liste.

Das Makro hier schreibt die Inhalte in richtiger Reihenfolge untereinander. Hat auch funktioniert, hatte eine Variable vertauscht. Vielen Dank für die Bereitschaft.