Sorry for my English, but <exact function it's not enough (you have to
compare with sth and I have nothing to compare with

Sub()
Dim cell
Dim a, b, c, d
For Each cell In [a:a]
cell.Select
a = Selection.Value
If a = "" Then GoTo SLUT
If Left(b, 1) = UCase Then
Selection.Offset(0, 1).Value = a
c = c + 1
End If
d = d + 1
Next cell
SLUT:
[c1].Value = d
[d1].Value = c
[a1].Select
End Sub

Thanks, Totmos