Hozzászólás: [Resolved] Két táblázat adatainak beillesztése és táblázat átméretezése

Szia!
Próbáld meg ezzel:

Sub Masolas()
    Dim tabla As Range, usor As Integer, ide As Integer
    Sheets("Feladat").Select
    Set tabla = Range("C5").CurrentRegion
    tabla.Offset(1, 0).Resize(tabla.Rows.Count - 1, tabla.Columns.Count).ClearContents
    
    Sheets("Munka1").Select
    usor = Range("B5").End(xlDown).Row
    Range("B5:B" & usor).Copy
    Range("C5").PasteSpecial xlPasteValues
    Range("B5:C" & usor).Copy
    Sheets("Feladat").Range("C5").PasteSpecial xlPasteValues
    Range("F5:F" & usor).Copy
    Sheets("Feladat").Range("E5").PasteSpecial xlPasteValues
    
    ide = Sheets("Feladat").Range("C" & Rows.Count).End(xlUp).Row + 1
    Sheets("Munka2").Select
    usor = Range("B5").End(xlDown).Row
    Range("B5:B" & usor).Copy
    Range("C5").PasteSpecial xlPasteValues
    Range("B5:C" & usor).Copy
    Sheets("Feladat").Range("C" & ide).PasteSpecial xlPasteValues
    Range("G5:G" & usor).Copy
    Sheets("Feladat").Range("F5").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    Sheets("Feladat").Select
End Sub

Üdv,
Delila