Hallo Sina
Option Explicit
Sub Sina()
Dim LoLetzte As Long
With Sheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' in Tabellle1 .Cells(1, 2)) steht die Anzahl der auszufüllenden Zeilen
.Range("A" & LoLetzte + 1 & ":A" & LoLetzte + .Cells(1, 2)) = Sheets("Tabelle2").Range("F6")
.Range("B" & LoLetzte + 1 & ":B" & LoLetzte + .Cells(1, 2)) = Sheets("Tabelle2").Range("G7")
End With
End Sub
Gruß Hajo