Foro Excel

Hola amigos, tengo un problemilla, al copiar un rango, este me sale solo con "REF!" y no salen los valoers que corresponden, he ocupado el siguiente codigo

Sub test()
Sheets("lote1000").Activate
Range("envio").Select
Selection.Copy
Sheets("enviar").Activate
Range("A1").Select
ActiveSheet.PasteSpecial
End Sub

Envio un rango de datos desde la hoja 1(lote1000) a la hoja 2(enviar) ,
he probado tambien con

ActiveSheet.PasteSpecial xlvalues
ActiveSheet.PasteSpecial value=xlvalues

y no consigo lo que necesito, agradeceria una colaboracion

Añade el archivo...............

Prueba uno de los dos siguientes codigos (siendo el segundo mi preferido):

Código: Seleccionar todo

Sub test1()
    Sheets("lote1000").Range("envio").Copy
    Sheets("enviar").Range("A1").PasteSpecial xlPasteValues
End Sub

Código: Seleccionar todo

Sub test2()
    With Sheets("lote1000").Range("envio")
        Sheets("enviar").Range("A1").Resize _
            (.Rows.Count, Columns.Count).Value = .Value
    End With
End Sub

disculpejn la demora en atender sus bien recibidas respuestas a mi problema pero me han operado de urgencia y he estado fuera de combate varios dias, ahora me estoy reponiendo y retomo las tareas por hacer....
probare el codigo y les contare como me fue...

gracias por su ayuda...