wenn wert in Zelle, dann kopieren

Sub Macro1()
Dim wert, i, zaehler
zaehler = 1
For i = 1 To 500 'je nach länge deiner liste
wert = Sheets("tabelle1").Cells(i, 5) 'wenn wert in spalte a
If wert = "Peter" Then
Rows(i).Copy
Sheets("tabelle2").Select
Rows(zaehler).Select
ActiveSheet.Paste
Sheets("tabelle1").Select
zaehler = zaehler + 1
End If
Next i
End Sub

Nun möchte ich darin gerne folgendes ändern:
- Gestartet werden soll erst ab der fünften Zeile, damit die Titel nicht übernommen werden.
- Wie kann ich als Wert nur einen Teilstring angeben z.B. "Pe" anstelle von "Peter"
Danke und Gruss
Maruseru