Sub ki145()
AAA = "ABCDE"
  For i = 1 To 4
   fs = String(i, "��")
    Cells(i + 9, 6) = fs & "��" & AAA
  Next
End Sub

Sub ki145a()
    Range("F10:F13").Select
    Selection.ClearContents
    Range("B10").Select
End Sub