consulta rápida

hola, Luis !

1) generalmente no es necesario seleccionar (por codigo) objetos para administrar sus propiedades (o sea)
la parte de codigo que expones podria sustituirse por algo mas "ligero" (p.e.)
worksheets("concentrado").range("e8:e49").copy

2) a reserva de algun detalle "perdido en el tintero"... podrias pensar en una estructura del tipo Select Case (p.e.)

with worksheets("concentrado")
select case activesheet.range("78")
case 1
.range("e8:e49").copy
case 2
.range("f8:f49").copy
case 3
.range("h8:h49").copy
' mas cases ??? '
end select
end with

3) si comentas/existe/... alguna relacion o "patron" para determinar que rango segun valores en "a78" -???-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

Tengo esta parte del codigo de una macro:

Sheets("CONCENTRADO").Select
Range("E8:E49").Select
Selection.Copy

lo que necesito es que depediendo del valor que tenga en la celda A78, seleccione diferentes rangos, asi:
si la celda A78 tiene el valor: 1 entonces que el rango que seleccione sea :("E8:E49")
pero si la celda A78 tiene el valor: 2 entonces seleccione el rango: ("F8:F49")
pero si la celda A78 tiene el valor: 3 entonces que seleccione el rango: ("H8:H49") ...