Excel - seleccionar rango y copiar

Saludos,
este es mi problema: tengo una tabla con diferentes tipos de pruebas y necesito que depende la descripcion de la prueba que este entrada seleccione el rango de celdas , lo pueda copiar y guardarlo en otra hoja de trabajo que esta identificada por el nombre de la prueba.
Dim a As Range
ActiveCell.Offset(0, -2).Select '' donde selecciono la celda inicial a copiar
Set a = Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 3))
a.Select
Selection.Copy

pero esto me envia un error: Run-time error 1004 method 'range' of object'_worksheet' failed
me dice que la variable a no tiene valor..

he intentado de todo pero no encuentro solucion .

Hola! Camille
Reemplaza esas 5 líneas que mostraste por la siguiente:


y comenta: ¿Sí?...

Saludos, Cacho R.

Gracias! así de simple.. habia intentado el comando Resize pero no de la manera correcta!

no es mas facl digitar la formula
=+IZQUIERDA(d2,4)
en e2 ?

o quieres hacerla con macros , la tabla de códigos no los muestras por lo que asumo serán siempre las 4 primeras letras, ahora yo tuve un caso similar y era re codificar en función a la descripción la palabra clave no siempre estaba en orden por lo que tenia que buscarla en cualquier orden de la descripción , luego capturar el código en la tabla que tampoco era similar a la palabra clave si no lo encontraba continuaba con la segunda de la tabla y así sucesivamente hasta encontrarla, allí si era necesario el uso de macros.

slds.

JPP

Gracias por tu ayuda.