consulta sobre macros

[a83]

bueno estoy biendo la forma de solamente tomar algunos datos de la tabla y enviarlos a otra en tabla, lo que no puedo hacer es tomar los datos que necesito salamente en este codigo me toma toda las linea mas todas la colunas que


este es el codigo

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 
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 = 3 To 41 
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