Foro Excel

Hola, bueno en el post anterior me parece que no me he expresado adecuadamente , ahora lo planteo como corresponde, el codigo que utilizo es el siguiente

Sub intento5()
Worksheets("Lote1000").Range("S1:AA142").SpecialCells(xlCellTypeConstants).Copy
Worksheets("Enviar").Cells(50, i + 22).PasteSpecial , , True
Application.ScreenUpdating = True
End Sub

con este trato de copiar el rango S1:AA142 de la hoja "Lote100" a la hoja "Enviar" pero no me sa resultado....

Alguien que pudiera decirme mi error.... gracias....

por si te sirve el ejemplo

http://www.exceluciones.com/portal/viewtopic.php?t=6038&highlight=

solo tienes que hacerle algunos cambios.

y si se te complica,te doy el mismo consejo.-utilizar la grbadora de macros