Cita:
Iniciado por a83 
tienes un mail donde enviarte un pantallaso de lo que te estoy explicado
Primero quita estas lineas (color naranja)sí el archivo destino es el mismo que a macro y agrega la de color azul:
Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name
worigen=wmacro
este primer openfile es para elegir el archivo donde se encuentran los datos que quieres copiar
openfile 'QUITAR
'ActiveWorkbook.Name 'QUITAR
worigen = ActiveWorkbook.Name 'QUITAR
'wdestino = "info1.xls" 'QUITAR
este segundo openfile es para elegir el archivo donde los vas a escribir.
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
Ahora sí fijate en el ciclo for de i2. i2 empieza en el 1 o sea q jala datos de la primera columna en adelante....si se debe de traer de la columna d8 debes empezar el conteo en 4 y terminar en 41
asi:
For i2 = 4 To 41
segun yo asi dejara de traerte el encabezado.