Seleccionar por código sólo líneas sin datos

hola, Esteban !

En una hoja para ingresar datos para facturar, hay 40 lineas para el detalle de los productos desde la fila 12 hasta la 51.
Solo se ingresa el codigo del producto y la cantidad (Col. A y B).
Mediante BUSCARV se llenan las columnas Descripción y Precio unitario (Col. C y D) que se extraen de otro libro.
La Col. E multiplica B * D.
Lo que se desea exactamente es seleccionar - por codigo - dentro del rango A12:E51 solo el rango que no contenga lineas en blanco.
Naturalmente que la hoja tiene otro tipo de datos mas alla de la fila 51...

-> si suponemos/asumimos/... que las celdas dentro del rango 'A12:A51'
o tienen algun codigo... o estan vacias... y que NO existen celdas vacias 'intermedias' -???-
prueba con algo +/- como lo siguiente:

Dim Filas As Byte
Filas = Application.CountA(Range("a12:a51"))
If Filas > 0 Then Range("a12").Resize(Filas, 5).Select

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Extraordinario. Funciona perfecto.
Muchas gracias Héctor.
E.D.

"Héctor Miguel" escribió en el mensaje
news:

hola, Esteban !

> En una hoja para ingresar datos para facturar, hay 40 lineas para el

detalle de los productos desde la fila 12 hasta la 51.

> Solo se ingresa el codigo del producto y la cantidad (Col. A y B).
> Mediante BUSCARV se llenan las columnas Descripción y Precio unitario

(Col. C y D) que se extraen de otro libro.

> La Col. E multiplica B * D.
> Lo que se desea exactamente es seleccionar - por codigo - dentro del

rango A12:E51 solo el rango que no contenga lineas en blanco.

> Naturalmente que la hoja tiene otro tipo de datos mas alla de la fila

51...

-> si suponemos/asumimos/... que las celdas dentro del rango 'A12:A51'
o tienen algun codigo... o estan vacias... y que NO existen celdas

vacias 'intermedias' -???-

prueba con algo +/- como lo siguiente:

Dim Filas As Byte
Filas = Application.CountA(Range("a12:a51"))
If Filas > 0 Then Range("a12").Resize(Filas, 5).Select

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.