Excel - Importar desde otro archivo excel

'Boton 1 para obetener la ruta en un textvox llamado text_adjunto

Private Sub CommandButton1_Click()

   Dim RutaArchivo As String

'Obtenemos la ruta en una variable

RutaArchivo = Application.GetOpenFilename(Title:="Seleccione Documento", _

                           filefilter:=".* (*.*), *.*")

text_Adjunto.Text = RutaArchivo

End Sub

'Procedimiento para abrir el archivo y copiar los datos

Private Sub CommandButton2_Click()

'Abrimos el archivo con lo que hay en el textbox

Workbooks.Open Filename:=text_Adjunto.Text

'decimos donde esta lo que queremos copiar 

Sheets("Hoja1").Select

Range("A1:Z1").Select

Selection.Copy

'Obtenemos el nombre del archivo que acabamos de abrir

Dim NombreR As String

NombreR = ActiveWorkbook.Name

'pegamos los datos en el archivo donde tenemos la macro por ejemplo

Workbooks("Libroprueba.xlsm").Activate

Sheets("Hoja1").Select

Range("A1").Select

ActiveSheet.Paste

'Liberamos el portapapeles

Application.CutCopyMode = False

'Cerramos el archivo

Workbooks(NombreR).Close savechanges:=False

End Sub