How can I count all the active cell in Column A then put the total on the bottom

[suicidalporcupine]

So I have a very simple problem, but when I search on how to do it, it seems the code I have been seeing are longer than it's suppose to be?

So here's my problem

Everyday Column A generates a different set of numbers.
What I need is to count all the cell and input the total on the last cell:

and possibly underline the last number?
232
2321
2434
1343
4

really appreciate any input

 

[Special-K99]

Maybe

Sub k1()
LastRow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Cells(LastRow + 1, 1) = LastRow
Cells(LastRow, 1).Font.Underline = xlUnderlineStyleSingle
End Sub

 

[healey21]

Try this

Sub countAbove1A()
Dim ran As Range, rAbove As Range
Dim ShtF As WorksheetFunction
Set ShtF = Application.WorksheetFunction
Range("a65536").Select
Selection.End(xlUp).Offset(1).Select

Set ran = ActiveCell
Set rAbove = Range(ran.Offset(-1, 0), Cells(1, ran.Column))
ran.Formula = "=count(" & rAbove.Address & ")"
ran.Offset(-1).Font.Underline = True
End Sub

 

[suicidalporcupine]

thanks, sorry I'm really new to this,. don't think it works.. it's giving me the error expected end sub.

 

[suicidalporcupine]

I can't use those because there are 2 sets of numbers for each column,.

but I only want excel to count the first list:

5435
5476
7897
2354
887
5454
6



56
65
634
24


So is there a code for vba to select the cell after 5454 so i can insert the =COUNTA(B2:B20)

or is there an easier way than what I'm planning?