Sub Uppercase()

Dim col As String
col = "A"          'UPDATE ME TO THE COLUMN YOU WANT

Dim row As Integer
row = 1

Do While (Range(col & row).Value <> "")
    Range(col & row).Value = UCase(Left(Range(col & row).Value, 1)) & Right(Range(col & row).Value, Len(Range(col & row).Value) - 1)


row = row + 1
Loop

End Sub