codice:
 Dim wkCopia As Workbook
    Application.ScreenUpdating = False
    Set wkCopia = Workbooks.Open("C:\Prove\Cartel1.xls")
    wkCopia.Worksheets("Foglio1").Range("B1:P300").Copy _
        Destination:=ThisWorkbook.Worksheets("Foglio1").Range("B1")
    wkCopia.Save
    wkCopia.Close
    Application.ScreenUpdating = True
    Exit Sub

RigaChiusura:
    Set wkCopia = Nothing
    Exit Sub
Questo codice mi permette di copiare il range B1:P300 del foglio1 e nel file specificato in Wkcopia partendo da B1.
Si può modificare e renderlo funzionale per le mie necessità, ovvero avere più range da più fogli?
Grazie