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

Szándákosan értékeket másoltam a Feladat lapra, a sok képlet lassítja a futást (sok sornál).
Egy hiba is volt a makrómban, a Csoport (2) oszlopba az 5. sortól vittem be a Munka2 lap adatait.
A mostani makróban csak az F (Fűz) oszlopban vannak képletek, hogy megmutassam, miként lehet tartományba képleteket bevinni.
Ezt a makrót is meghívhatod a lapjaidról az adatok változásakor.

Sub Masolas()
    Dim tabla As Range, usor As Integer, ide As Integer
    
    Sheets("Feladat").Select
    Range("C5:H1500").ClearContents  'előző adatok törlése
    
    Sheets("Munka1").Select     'Értékek másolása a Munka1 lapról
    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     'Értékek másolása a Munka2 lapról
    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("F" & ide).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    Sheets("Feladat").Select
    usor = Range("C" & Rows.Count).End(xlUp).Row    'összefűző képlet a Fűz oszlopba
    Range("G5:G" & usor) = "=E5 & F5"
End Sub