kopierten Bereich in erste leere Zelle einfügen

Sub Einpflegen_Click()
Dim f
Range("A50001:J50001").Select
Selection.Copy
Set f = Range("2:2")
Set f = f.Find("Werkstoff")
Set f = f.EntireColumn
Set f = f.Find("")
?.paste
End Sub