“VBA contam toda a linha” Respostas de código

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