VBA Lösung

Sub SätzeAufAnderesTabellenblattÜbertragen()
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Dim i As Integer
Dim iAnz As Integer
Set Blatt1 = Worksheets("Eingabe")
Set Blatt2 = Worksheets("Datenbank")
Application.ScreenUpdating = False
iAnz = 0
For i = 1 To Blatt1.UsedRange.Count
If Blatt1.Cells(i, 1) <> "" Then
Blatt2.Rows(21).Insert shift:=xlDown
Range(Cells(i, 1), Cells(i, 3)).Copy Destination:=Blatt2.Range("A21")
iAnz = iAnz + 1
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & iAnz & " Sätze übertragen"
End Sub