el codigo quedaria de esta manera.
Código PHP:
Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name
openfile
'ActiveWorkbook.Name
worigen = ActiveWorkbook.Name
'wdestino = "info1.xls"
MsgBox ("Elija Ahora el archivo destino")
openfile
Workbooks(worigen).Activate
celda1 = Range("f5").Value
Workbooks(wdestino).Activate como lo ago para asignar la hoja de destino me envia un error 13 en tiempo de ehecucion
Range("b2").Value = celda1
Workbooks(worigen).Activate
celda1 = Range("b5").Value
Workbooks(wdestino).Activate
Range("c5").Value = celda1
Workbooks(worigen).Activate
celda1 = Range("c2").Value
Workbooks(wdestino).Activate
Range("g6").Value = celda1
End Sub