ik gebruik onderstaande code, om een naam te zoeken via een textbox en er naartoe te gaan, nu wil ik die rij graag kopiëren en plakken in een ander werkblad van hetzelfde document, dat is altijd "blad2". Er staan daar al gegevens, de nieuwe gegevens wil ik graag onderaan aansluiten. Ik vond dit, maar ik kom er niet verder mee:

Private Sub Opslaan_Click()
  Dim x      As Long
    x = Cells(Rows.Count, "A").End(xlUp).Row + 1
                 'oude code weggeknipt
     invoeren_Initialize
End Sub
Private Sub CommandButton2_Click() 'zoekt de naam opOn Error GoTo errH:
  Application.Goto _
   Columns("A:A").Find(What:=TextBox1.Text, _
   After:=ActiveCell.EntireRow.Cells(1), _
   LookIn:=xlFormulas, LookAt:=xlPart, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False), _
   Scroll:=True
endH:
Exit Sub
errH:
 Beep
End Sub


Leo, uit de kunst, bedankt.