Error al contar número de líneas de una hoja con un ciclo While.

Hola.

Estoy trabajando con una macro en excel 2010 para contar el número de líneas de una hoja y usar ese número como referencia de celda-columna para extraer información de una matriz con la función buscarv y al momento de seleccionar la celda donde comenzará a contar me marca el siguiente error: "Se ha producido el error 1004" en tiempo de ejecución: Error definido por la aplicación o el objeto.

El código es sl siguiente:

Workbooks("CLIENTES.xlsx").Activate

Sheets("cuentas").Select

h = 3
Range("A" & h).Select 'esta es la celda donde comenzará a contar las lineas

MsgBox (Range("A" & h).Value) 'esta linea solo es para comprobar que haya datos en la celda, sin embargo, me marca que está vacío cuando si hay información.
While Range("A" & h).Value <> ""
h = h + 1
Wend
lcli = h
Workbooks(nombrelibro).Activate 'Aquí regresa al libro donde se está ejecutando la macro y ejecuta las lineas de abajo.

Range("A2").FormulaR1C1 = "=VLOOKUP(RC[2],CLIENTES.xlsx]cuentas!R3C1:R&lcliC3,3,FALSE)"
Range("B2").FormulaR1C1 = "=VLOOKUP(RC[1],CLIENTES.xlsx]cuentas!R3C1:R&lcli3,2,FALSE)"

Sheets("Hoja1").Range("A2: B" & lineas).Select
Selection.FillDown 'la variable lineas viene de otro proceso

Agradeceré toda ayuda.

Muchas gracias.