For i = 1 To 7
If Left(Cells(i, 1), 1) = "A" Tnen
これだとA1セルの1文字目がAであるなら、だと思うけど、

If Left(UCase(Cells(i, 1)), 1) = "A" Tnen
これだと、どう言う意味になるの?

A1セルの1文字目を大文字に変更したものがAであるならばだと意味おかしいよね?