Tal vez no sea muy interesante lo que estoy preguntando pero logre hacer una macro donde me trajera los datos de otro archivo colocandolos en diferentes columna hasta ahora me ha funcionado bien.
aqui esta
Código:
Sub leer_fichero_excel()
Application.ScreenUpdating = False
On Error Resume Next
ruta = ThisWorkbook.Path
fichero = "USC.xlsx"
Set Conn = New ADODB.Connection
Conn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ruta & "\" & fichero
Set rs = New ADODB.Recordset
Sql = "SELECT * FROM B3:H65"
rs.Open Sql, Conn, adOpenStatic, adLockOptimistic
Range("A3").Select
ActiveCell = rs.Fields.Item(11).Name
ActiveCell.Offset(0, 9) = rs.Fields.Item(1).Name
ActiveCell.Offset(0, 5) = rs.Fields.Item(2).Name
ActiveCell.Offset(0, 7) = rs.Fields.Item(3).Name
ActiveCell.Offset(0, 3) = rs.Fields.Item(4).Name
ActiveCell.Offset(0, 1) = rs.Fields.Item(5).Name
Do While Not rs.EOF
ActiveCell.Offset(1, 11) = rs(0)
ActiveCell.Offset(1, 9) = rs(1)
ActiveCell.Offset(1, 5) = rs(2)
ActiveCell.Offset(1, 7) = rs(3)
ActiveCell.Offset(1, 3) = rs(4)
ActiveCell.Offset(1, 1) = rs(5)
rs.MoveNext
ActiveCell.Offset(1, 0).Select
Loop
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
Application.ScreenUpdating = True
End Sub
Ahora el problema que tengo es como le hago para que esos registros me los copie en una hoja especifica del archivo; lo que hace porel momento es copiarlos al archivo en la primera hoja pero como ya les dije el archivo a donde estoy jalando los datos tengo 2 hojas y quiero que esas hojas se ejecute la macro cada una con sus respectivos archivos de donde estan los datos originales espero me puedan responder y se los agradezco mucho.