Macros Exel.. bucle ¿¿¿¿¿¿Como lo hago????

[AMG_web_headache]

Creo que lo más simple es no usar range, sino que usar cells. Cells utiliza números en lugar de la notacion letra número como A1, B1,B2. Asi por ejemplo range("b3") es equivalente a cells(3,2) Aqui escribi el código que necesitas, no lo he compilado, asi que a lo mejor no corre por alguna error menor.

'Columna 10 corresponde a j
ultima_columna=10

filault = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1

for columna_j=1 to ultima_columna
for fila_i=1 to filault
sheets("Hoja2").cells(fila_i,columna_j)=sheets("Ho ja1").cells(fila_i,columna_j)
next fila_i
next columna_j