[Resolved] Két táblázat adatainak beillesztése és táblázat átméretezése

Sziasztok!

Egyszerűen nem jövök rá a hibára, légyszi segítsetek. A feladat, hogy a „Munka1” és „Munka2” munkalapon lévő táblázatok „Érték ID” sorába bemásoljuk a „Ssz” oszlopban lévő adatokat értékbeillesztéssel, majd a két táblázat „Érték ID” oszlop adatait beillesszük a „Feladat” fülben lévő táblázat „Érték ID” oszlopába egymás alá, és a táblázatot igazítsuk a beillesztett adatok mennyiségéhez. ŰIgazából működik minden, kivéve, hogy a táblázat bővítését lefutásonként 1 soronként végzi el. Nekem 1 lefutással kéne kibővítse a táblázatot az adatok hosszúságához.
?ég egy hiba, hogy a 4. sorba nem másol adatot. Egyszerűen átlépi, mintha ott sem lenne. Ide másolom a kódomat. Köszönöm, ha valaki segít ebben.
Sub Masolas()
Dim Munka2 As Worksheet
Dim Munka1 As Worksheet
Dim Szint2 As ListObject
Dim Szint1 As ListObject
Dim Tbl12 As ListObject
Dim FirstRowTbl12 As Long
Dim LastRowTbl12 As Long

Set Munka2 = ThisWorkbook.Sheets(„Munka2”)
Set Szint2 = Munka2.ListObjects(„Szint_2”)
Set Munka1 = ThisWorkbook.Sheets(„Munka1”)
Set Szint1 = Munka1.ListObjects(„Szint_1”)
Set Feladat = ThisWorkbook.Sheets(„Feladat”)
Set Tbl12 = Feladat.ListObjects(„Táblázat12”)

Szint2.ListColumns(„Érték ID”).DataBodyRange.Value = Szint2.ListColumns(„Ssz”).DataBodyRange.Value
Szint1.ListColumns(„Érték ID”).DataBodyRange.Value = Szint1.ListColumns(„Ssz”).DataBodyRange.Value

FirstRowTbl12 = 1
Tbl12.ListColumns(„Érték ID”).DataBodyRange.ClearContents

Tbl12.ListColumns(„Érték ID”).DataBodyRange.Cells(FirstRowTbl12, 1).Resize(Szint1.ListColumns(„Érték ID”).DataBodyRange.Rows.Count, 1).Value = Szint1.ListColumns(„Érték ID”).DataBodyRange.Value

LastRowTbl12 = FirstRowTbl12 + Szint1.ListColumns(„Érték ID”).DataBodyRange.Rows.Count

Tbl12.ListColumns(„Érték ID”).DataBodyRange.Cells(LastRowTbl12, 1).Resize(Szint2.ListColumns(„Érték ID”).DataBodyRange.Rows.Count, 1).Value = Szint2.ListColumns(„Érték ID”).DataBodyRange.Value
utolsoSor = Tbl12.ListRows.Count

Set ertekIDOszlop = Tbl12.ListColumns(„Érték ID”)

utolsoSor = Tbl12.ListRows.Count

If utolsoSor > 0 Then
For i = utolsoSor To 1 Step -1
If ertekIDOszlop.DataBodyRange.Cells(i, 1).Value = „” Then
Tbl12.ListRows(i).Delete
End If
Next i
End If
utolsoSor = Tbl12.ListRows.Count
utolsoAdatSor = ertekIDOszlop.DataBodyRange.Find(„*”, , xlValues, xlWhole, xlByRows, xlPrevious).Row
If utolsoAdatSor > utolsoSor Then
Tbl12.ListRows.Add utolsoAdatSor – utolsoSor
End If
End Sub