Excel VBA contar celfdas

[toposoft]

ayuda por favor ya estmaos desesperados mi equipo y yo... necesitamos que en excel para VBA contemos una columna... o sea que quiero realizar un case de los valores de la columna d hasta donde llegue pero sin que se pase a donde no hay nada.... como le hago no sabemos utilizar esto... gracias



tenemos esto que nustro maestro nos proporciono

Set TransRowRng = Sheets("Direcciones").Cells(1, 1).CurrentRegion
Newrow = TransRowRng.Rows.Count

Sheets("Direcciones").Range("$D$1").Select
Selection.AutoFill Destination:=Range("D1:D" & Newrow)


pero no sabemos que onda saca errores... gracias