Code erweitern in einem Skript

Public Sub Uebert()
On Error GoTo fehler
Dim obj_wks_ziel As Worksheet
Dim obj_wks_quelle As Worksheet
Dim lng_letzte_zeile As Long
Dim lng_zeile As Long
Dim lng_spalte As Long
Dim rng_gefunden As Range
Dim lng_artikelnummer As String
Dim ix As Long
Set obj_wks_ziel = Worksheets("Rapportieren")  ' Hier Zieltabellenblatt benennen
Set obj_wks_quelle = Worksheets("Materialdatenbank")  ' Hier Quelltabellenblatt benennen
For lng_spalte = 2 To Columns.Count Step 17 ' 2To = Erste Spalte definieren zum einfügen, Step3  _
= wie viel Spalte definieren zum einfügen
lng_letzte_zeile = obj_wks_ziel.Cells(Rows.Count, lng_spalte).End(xlUp).Row + 1 ' Erste _
leere zeile im Zielblatt ermitteln
If lng_letzte_zeile  19 Then  'Spalte Spalte für die nächste Reihe ab erster Zeile.
MsgBox "Es wurden bereits 3 Spalten mit Artikelnummern gefüllt!"
Exit Sub
End If
If lng_letzte_zeile