VBA contam toda a linha

Sub CountRows1()
    Dim last_row As Long
    last_row = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox (last_row)
End Sub
peamdev