Ma perchè hai aperto una nuova discussione quando ce l'avevi già?
Questa macro conta le celle piene nell'intervallo E2:E3002 e lo mette nella texbox
vb
Sub ContaPiene()
Sheets("Foglio1").TextBox1.Value = WorksheetFunction.CountA(Range("e2:E3002"))
End Sub
Alfredo