Nevím jak je to myšleno s oblastí, ale počítat čísla končící 1 lze třeba takto:
Public Sub pocitej()
Dim pocet As Single
Dim radek As Single
radek = 1
pocet = 0
Do While Cells(radek, 1) <> ""
If Right(Cells(radek, 1), 1) = "1" Then pocet = pocet + 1
radek = radek + 1
Loop
MsgBox pocet
End Subcitovat
Public Sub pocitej()
Dim pocet As Single
Dim radek As Single
radek = 1
pocet = 0
Do While Cells(radek, 1) <> ""
If Right(Cells(radek, 1), 1) = "1" Then pocet = pocet + 1
radek = radek + 1
Loop
MsgBox pocet
End Subcitovat