Vielen Dank für eure Hilfe
Sheets("Preis"). Range("A9:H17")
Selection.Copy
Range("Bereich").Cells(Rows.Count, 3).End(xlUp).Offset(2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Public Sub Einfuegen()
Dim rZelle As Range
For Each rZelle In Range("Bereich")
If Trim(rZelle.Value) = "" Then
Selection.Copy
rZelle.PasteSpecial Paste:=xlPasteValues
Exit For
End If
Next rZelle
End Sub
Gruß Peter