Deze code heb ik gekregen van redhead en heb ik wat aangepast.
Het zoekt via vertikaal zoeken een waarde op uit kolomA, dit via textbox1. Daarna kopieert het heel die gevonden rij naar blad2.
Aan die code wil ik graag nog een opdracht toevoegen.
Ik wil op blad1, waarvandaan de rij werd  gekopieerd naar blad2, de range a:z leegmaken. Ook wil ik graag het getal in kolom AE met één verhogen  (Dat geeft het aantal keer dat die rij is aangemaakt.).
Dus, met onderstaande button wil ik, een unieke naam zoeken in blad1 en de gevonden rij kopiëren naar blad2 (al klaar), daarna een range verwijderen in blad1 en de cel naast die range (kolomAE) met één verhogen.
Wie kan wil mij hiermee verder helpen?

Private Sub CommandButton1_Click()
Dim sZoekwoord As String
Dim rGevonden As Range
Dim lRegelnr As Long
       sZoekwoord = TextBox1.Text
    If sZoekwoord = "zoekstring" Then Exit Sub
        Set rGevonden = Columns("A").Find(What:=sZoekwoord, After:=Range("A1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False)
    If Not (rGevonden Is Nothing) Then
        lRegelnr = Sheets("blad2").Range("A" & Rows.Count).End(xlUp).Row + 1
        rGevonden.EntireRow.Copy Sheets("blad2").Range("A" & lRegelnr)
    End If
End Sub


Leo, in kolomAE staat het cijfer 1 bij de startpositie. telkens ik de knop gebruik komt er een cijfer bij, dus, na button gebruik cijfer 2, na nog eens gebruik cijfer 3 enz..

ik heb nog wat gevonden om een cel leeg te maken. Kan ik hiermee ook een range leegmaken of moet ik offset voor elke cel gebruiken? Het werkt wel, maar veel code, niet?

With Worksheets(1).Range("a:a")
    Set c = .Find(TextBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        c.Offset(r, 6) = "" 'een cel uit kolomG verwijderen
     
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

In de huidige vorm zal het zeker niet doen wat ik wil, omdat dit enkel een specifieke range gaat verwijderen. En ik wil graag via verticaal zoeken een range verwijderd. Ik heb ondertussen met die code uit mijn vorig bericht verder gewerkt en die doet het ook. Ik denk dat ik er verder zelf wel uitkom.
Dank voor alle hulp.