como puedo cargar informacion de otro libro de excel a otro

[Monimo]

Dim sFileName As String
Dim wmacro As String
Dim worigen As String
Dim wdestino As String



Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name

openfile
'ActiveWorkbook.Name
worigen = ActiveWorkbook.Name
'wdestino = "info1.xls"

MsgBox ("Elija Ahora el archivo destino")
openfile
wdestino = ActiveWorkbook.Name
'activamos la celda desde donde se actualiza, esto para conocer el numero de renglon y columna
Range("B10").Activate
rt = ActiveCell.Row 'renglon
ct = ActiveCell.Column 'columna

For i2 = 1 To 37
rt2 = rt
For i = 1 To 5
Workbooks(worigen).Activate
' guardamos en una variable temporal el valor q esta en la celda q actualmente recorremos
temp = Cells(i, i2).Value
'seleccionamos el libro donde pondremos los datos
Workbooks(wdestino).Activate
'lo asignamos a variables para irle sumando conforma nos movemos en la hoja
Cells(rt2, ct + i2).Value = temp 'a la columna le sumamos el valor de i2 pues asi se movera conforme a la columna q vaya leyendo.
'se movera 5 renglones abajo. en la columna q debe ir
rt2 = rt2 + 1

Next

Next



End Sub

Sub openfile()
sFileName = Application.GetOpenFilename
If sFileName <> "False" Or sFileName <> "False.xls" Then
'abrimos archivo
Workbooks.Open (sFileName)
Else
MsgBox ("Ha elegido cancelar el archivo. Inténtelo de nuevo")
Exit Sub
End If
End Sub