Boa tarde, @dunguinha

Private Sub CommandButton1_Click()
 MsgBox Title:="CONTAGEM DE VALORES", _
        Prompt:="Contagem de não vazias coluna A, linhas " & [C1].Value & " em diante: " & _
                 Application.CountA(Range(Cells([C1].Value, "A"), Cells(Rows.Count, "A"))), _
        Buttons:=vbOKOnly
End Sub

Ficou ótimo Edson. Obrigado.

Amigo Edson, pintou outra necessidade.

Precisava que contasse as linhas em negrito e as normais separadamente.

Da para em vez de contar tudo, contar só se estiver em negrito?

Private Sub CommandButton1_Click()
   Dim contTotal As Long, contNegrito As Long, c As Range
   For Each c In Range(Cells([C1].Value, "A"), Cells(Rows.Count, "A").End(xlUp))
       contTotal = contTotal - (c <> "")
       contNegrito = contNegrito + (c <> "") * (c.Font.Bold)
   Next c
   MsgBox Title:="CONTAGEM DE VALORES", _
          Prompt:="Contagem de não vazias coluna A, linhas " & [C1].Value & " em diante: " & Chr(13) & _
                   "Todas: " & contTotal & Chr(13) & _
                   "Negrito: " & contNegrito, _
          Buttons:=vbOKOnly
End Sub

Obrigado mais uma vez Edson.