Máš tam pár chýb:

- zabudol si na list2, na ktorom je pomocná tabuľka, takže vlepovať môžeš začať až od hárka 3
- máš chybný syntax definovania cieľa a to ako v určení kopírovanej oblasti, tak i v spôsobe zápisu kopírovania

Sub Prenos()
Application.ScreenUpdating = False
    For i = 3 To 307
        Worksheets("list1").Range("A" & Worksheets("list2").Cells(i - 2, 3) & ":BA" & Worksheets("list2").Cells(i - 2, 4)).Copy (Worksheets(i).Range("A2"))
    Next i
End Sub

P.S.
- nie sú tu ošetrené chybové stavy, napr. môžeš mať preklep v názve cieľového hárka alebo v pomocnej tabuľke, čo spôsobí smerovanie na neexistujúci hárok a pod
- správnosť závisí od toho, či nemáš chybu v rozsahoch pomocnej tabuľky
- dá sa to aj bez zoradenia a bez pomocnej tabuľky, proste kód pôjde riadok po riadku v zdrojovom liste a každý riadok prilepí za posledný riadok príslušného cieľového listu