For Bedingung in einer Schleife

Sub Test()
' Variable definiert die Anzahl der Zeilen in der Tabelle
Dim vertikal As Integer
Range("A196").Select
vertikal = Selection.CurrentRegion.Rows.Count
' Variable definiert, wo das Ergebnis der Suche hinkopiert werden soll
Dim Startpunkt As Integer
Startpunkt = 148
' "i" ist die Variable, welche für die Schleife benötigt wird
Dim i As Integer
For i = 196 To vertikal + 196
'Im Bereich (i, 15) soll nach dem Begriff "Gewerbe" gesucht werden
If Cells(i, 15) Like "Gewerbe*" Then
'Wird der Begriff "Gewerbe gefunden", wird aus der Tabelle in Spalte 2 ein Wert kopiert  _
_
_
und dieser in einen anderen Bereich eingefügt
Cells(i, 2).Select
Selection.Copy
Cells(Startpunkt, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Startpunkt = Startpunkt + 1
End If
Next i
End Sub