Excel VBA dolu satırları saymak

EXCEL VBA yazarken bir döngünün devam edeceği veri dolu satırlar ve sütunları saymak için:

Range("a" & Rows.Count).End(xlUp).Row


MsgBox (Range("a" & Rows.Count).End(xlUp).Row)
          ' en alttan veri olan yere gelerek veri olan dolu satırları sayar .
       

MsgBox (Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count)
   ' a sütunund kaç tane dolu var

Cells ile:
 
MsgBox (Cells(Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row)
    ' cells ile