Copiare dati in un foglio excel da un altro file di excel

Salve
sto provando e riprovando di copiare dati da un file excel ed inserirli in un file excel di lavoro
Ho creato una macro con autocomposizione e mi gira ma se faccio girare la macro

Private Sub CommandButton1_Click()
' Macro4()
'
' Macro4 Macro
'

'
Range("b7:d46").Select
Selection.ClearContents
Workbooks.Open Filename:= _
"D:\Programmi Gare Vespa\Gare Gimkana\Lista_Piloti.xls"
Range("B6:D45").Select
Selection.Copy
Windows("Elabora_Gara_Gimkana_pennetta.xls").Activate
Range("B7").Select
ActiveSheet.Paste
Windows("Lista_Piloti.xls").Activate
ActiveWorkbook.Close
'End Sub
End Sub

inserita nel file di lavoro mi da errore.😖
(Errore di run-time '1004':
Errore nel metodo select per la classe Range)
Allego la macro, file excel lavoro e file excel dati
I dati copiati devono essere inseriti nel Foglio Comando del file Lavoro
Aiuto non riesco a capire come posso fare🙏

Nella macro, in due punti, quando fai il Range.Select devi invece fare il Sheets.Range.Select. Non è sufficiente 'aprire' il file ma devi anche fare riferimento al foglio prima del range.

Salve
grazie perla risposta anch'io avevo pensato che dovevo specificare il foglio, ho provato cosi':

Private Sub CommandButton2_Click()
'Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("Comando").Select
ChDir "D:\Programmi Gare Vespa\Gare Gimkana"
Workbooks.Open Filename:= _
"D:\Programmi Gare Vespa\Gare Gimkana\Lista_Piloti.xls"
Sheets("Foglio1").Select
Range("B6:D45").Select
Selection.Copy
Windows("Elabora_Gara_Gimkana_pennetta.xls").Activate
Sheets("Comando").Select
Range("B7").Select
ActiveSheet.Paste
Windows("Lista_Piloti.xls").Activate
ActiveWindow.Close
Sheets("Comando").Select
Range("B2").Select
'End Sub
End Sub
Ma mi da sempre lo stesso errore.
In pratica non conosco la sintassi esatta😥
Ringrazio in anticipo per qualsiasi commento o suggerimento

Da quello che vedo devo presumere che la macro 'CommandButton2_Click' la fai partire dal file 'Lista Concorrenti.xls' e che il file 'Elabora_Gara_Gimkana_pennetta.xls' sia già aperto. Stabilito questo, la tua macro potrebbe essere questa:

Grazie
credo di aver capito e proverò il tuo suggerimento.
Poi visto che no parto dal file "Lista_Piloti" spero di riuscire a cambiare con "Elabora_Gara_Gimkana_pennetta.xsl"
Grazie Mille
Saluti

Grazie Mille alla fine con il tuo aiuto sono riuscito nell'Intento


Private Sub CommandButton2_Click()

ChDir "D:\Programmi Gare Vespa\Gare Gimkana"
Workbooks.Open Filename:= _
"D:\Programmi Gare Vespa\Gare Gimkana\Lista_Piloti.xls"
Sheets("Foglio1").Range("b6:d45").Copy
Windows("Elabora_Gara_Gimkana_pennetta.xls").Activate
Sheets("Comando").Select
Range("B7").Select
ActiveSheet.Paste
Windows("Lista_Piloti.xls").Close
Sheets("Comando").Select
Range("B2").Select
End Sub
Cosi ora funziona👌
Problema risolto
di nuovo grazie e buon 2023

Grazie per il riscontro positivo👍, sono contento di essere stato di qualche aiuto.