Contar filas y mostrar resultado en otra hoja

H o l a

te paso la macro 

Private Sub Worksheet_Activate()
Set h = Sheets("BD")
Set h2 = Sheets("Ingresos")
u = h.Range("A" & Rows.Count).End(xlUp).Row
contar = WorksheetFunction.Count(h.Range("A3:A" & u))
h2.Range("E9") = "AU0000" & contar + 1
End Sub

Finalizas Excelente o bueno saludos!

lo pones en el Private Sub Worksheet_Activate() de la Hoja INGRESOS

Hola Adriel,

Hice la prueba con la macro, pero; o no funciona o lo estoy declarando mal, ya que al agregar el código en el evento Activate, lo único que hace es agregar el " AU00001" y no cuenta, agregue datos a la hoja BD y no cuenta nada, se quedo ahí en 1, ademoas, solo esta concatenando al código personalizado y al contador, y lo que requiero es que vaya incrementando, es decir, el formato es "AU0000", pero si agrego un dato más debería contar AU0001, luego AU0002... AU0010... AU0100... AU1000... y más.

Espero mi consulta este clara, muchas gracias.

Macro actualizada

Private Sub Worksheet_Activate()
'Por Adriel ortiz
Set h = Sheets("BD")
Set h2 = Sheets("Ingresos")
'
u = h.Range("A" & Rows.Count).End(xlUp).Row
If u < 1 Then u = 3
'
CONTAR = WorksheetFunction.CountA(h.Range("A3:A" & u))
h2.Range("E9") = "AU" & Format(CONTAR + 1, "0000")
'
End Sub

Valora la respuesta para finalizar saludos!