VBA Zeilen in andere Tab kopieren

Sub Zuordnen() 

QTabelle = "Tab1" 

QAbZeile = 2 'Daten ab Zeile 2 in 

QSpalte = 1 'Spalte "A" 

With Worksheets(QTabelle) 'Quelltabelle vorgeben 

    QZeile = QAbZeile 'in "AbZeile" beginnen 

    Nr = .Cells(QZeile, QSpalte).Value 'Nr auslesen 

    Do While Nr <> "" 'Schleife, solange noch Daten vorhanden sind 

        'Kennzeichen "Berich" prüfen und entsprechende Tabelle zuordnen 

        Berich = .Cells(QZeile, QSpalte + 3).Value 

        Select Case Berich 

        Case "K/E" 

            ZTabelle = "Tab2" 

        Case "K/M" 

            ZTabelle = "Tab3" 

        Case Else 

            ZTabelle = "" 

        End Select 

        If ZTabelle <> "" Then 'passendes Kennzeichen gefunden 

            Tage = Val(.Cells(QZeile, QSpalte + 2).Value) 'Tageanzahl lesen 

            'Zugeordnete Spalte lt Tageanzahl ermitteln 

            ZSpalte = Switch(Tage <= 100, "B", Tage < 250, "C", Tage <= 500, "D", Tage <= 750, "E", Tage <= 1000, "F", Tage > 1000, "G") 

            'Nächste freie Zelle in der entsprechenden Spalte suchen 

            ZZeile = Worksheets(ZTabelle).Cells(65536, ZSpalte).End(xlUp).Row + 1 

            Worksheets(ZTabelle).Cells(ZZeile, ZSpalte).Value = Nr 'Nr eintragen 

        Else ' passendes Kennzeichen nicht gefunden 

            MsgBox "Für Nr " & Nr & " (siehe Zeile " & QZeile & ") konnte keine Zuordnung zu einer Zieltabelle vorgenommen werden!" 

            'Exit Sub 'Abbruch 

        End If 

        QZeile = QZeile + 1 'nächste Datenteile 

        Nr = .Cells(QZeile, QSpalte).Value 'Nr auslesen 

    Loop 

End With 

MsgBox "Fertig." 

End Sub