Option Explicit
Sub Einfügen_Zuführung()
Dim rngQuelle As Excel.Range
Dim rngZiel As Excel.Range
Set rngQuelle = Worksheets("Makro").Rows("2:5")
With Worksheets("Inhalt")
Set rngZiel = .Cells(.Rows.Count, "B").End(xlUp)
If rngZiel.Row < 47 Then
Set rngZiel = .Cells(47, "B")
End If
If Len(.Cells(rngZiel.Row, "B").Value) > 0 Then
Set rngZiel = rngZiel.Offset(1)
End If
End With
Call rngQuelle.Copy(Destination:=rngZiel.EntireRow)
End Sub