Excel 2010: Matrix in Liste zurück umwandeln

Sub ListMatrix()
    With Sheets(1)
        'jede Zelle der Kundennamen von oben nach unten durchlaufen  
        For Each r In .Range("A3:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            ' Die Anzahl der Spaltenüberschriften ermitteln und darüber iterieren  
            For c = 1 To .Range("A2").End(xlToRight).Column - 1  
                ' Nur wenn Wert größer 0 dann erstelle neue Einträge  
                If r.Offset(0, c).Value > 0 Then
                    ' so oft Einträge erstellen wie der Wert der Zelle  
                    For i = 1 To r.Offset(0, c).Value
                        ' Nächste freie Zeile ermitteln  
                        Set newline = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
                        ' Wert der neuen Zeile mit Kundenname und Artikelbezeichnung setzen  
                        newline.Resize(1, 2).Value = Array(r.Value, .Cells(2, c + 1).Value)
                    Next
                End If
            Next
        Next
    End With
End Sub