[VBA] Copiare celle tra due file Excel

[fidello]

Ho necessità di dover copiare una serie di celle da diversi fogli di lavoro tra 2 file di excel nella stesa posizione.
Le celle sono da copiare sono intercalate con altre da non copiare e bloccate, pertanto l'utilizzo di una semplice macro risulta non utilizzabile.
Ho creato un foglio dove ho riportato nella col. A il nome del foglio e nella colonna B tutti range delle celle da copiare e vorrei con un bottone iniziare la copia:

'trovo la prima riga vuota
 ri = ActiveSheet.Cells(1, 1).End(xlDown).Row 
Dim i As Integer Dim foglio As String, intervallo As String 
Sheets(1).Activate For i = 1 To ri

'qui dovrei iniziare la selezione la copia/incolla dei vari range

Next i

Un aiutino?
Grazie

[MdE2005]

Non ho Excel a portata di mano, ma ritengo che se alcune celle sono bloccate non si possa utilizzarle..

Che tipo di blocco è? Cosa intendi di preciso?

[fidello]

Le celle che ho protetto, Formato, Celle, Protezione, sono quelle che contengono le diverse formule e che non deno ricopiare, e si intercalano con celle che contengono dati, e che devo ricopiare.
Il sistema del foglio con i vari range mi permetterebbe di copiare solo ciò che mi interessa, e grosso modo è ciò che ho realizzato per un azzeramento del foglio totale o parziale. Per fare un esempio dei vari range
A B
planning B4:O27
planning B33:O56
planning B62:O85
planning B91:O114
planning B120:O143
planning B149:O172
etc etc
LAVORO D7:F30
LAVORO H7:K30
LAVORO D39:F62
LAVORO H39:K62
LAVORO D72:F95
l'elenco contiene circa 350 righe
Grazie

[fidello]

 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