'das hab ich bisher:
 
Dim b
Dim n
 
n = InputBox("Name")
    Set b = Range("1:1")
    Set b = b.Find("Name")
    Set b = b.EntireColumn
    Set b = b.Find(n)
b.EntireRow.Copy 
 
Sheets("Tabelle2").Select
    Set b = Range("1:1")
    Set b = b.Find("Name")
    Set b = b.EntireColumn
    Set b = b.Find("")
    b.Select  '  <-- und hier hackts. wie bekomme ich jetzt die kopierte Zeile 
    ' _("b.EntireRow.Copy in die nächste frei Zelle