Código para copiar solo VALORES

[laubreeze]

Hola a todos.

Tengo el siguiente código para copiar columnas de una hoja a otra, pero si en la primera tengo fórmula, me copia la fórmula; y ahora necesito que me copie solamente los valores, como cuando hacemos un pegado especial manualmente.

              Dim ShER1 As Worksheet
              Dim SHDestino1 As Worksheet

             Set ShER1 = Worksheets("b.p.")
             Set SHDestino1 = Worksheets("b.d.")
             ShER1.Range("b10:D1500").Copy
             
             SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlAll
             Application.CutCopyMode = False

¿Alguien puede decirme el código para hacer lo que pretendo?

Muchas gracias de antemano.

[Antoni]

 SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlValues

 

[laubreeze]

Hace 3 horas, Antoni dijo:

 SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlValues

 

Muchas gracias por la ayuda para esta inexperta