Применить операторы циклов с пред- и постусловием

Sub ForMegaChainik_A()
Dim a1
Dim i As Byte
Dim j As Byte
Dim s As Byte
With ActiveWorksheet
a1 = Cells(1, 1)                
If IsNumeric(a1) = False Then
    Exit Sub
End If
a1 = Int(Val(a1))
If a1 < 10 Or a1 > 99 Then
    Exit Sub
End If
For i = 0 To 6
j = 6 - i
s = 2 ^ j
j = j + 1
If a1 >= s Then
    a1 = a1 - s
    Cells(2, j) = 1
Else
    Cells(2, j) = 0
End If
Next i
End With
End Sub

Sub ForMegaChainik_B()
Dim a5
Dim i As Byte
Dim c As Byte
n = Array("раз", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
With ActiveWorksheet
Cells(5, 2) = ""
Range("A6:A15") = ""
If i = 1 Then
        Cells(c, 1) = "всё"
        Exit Sub
    End If
a5 = Cells(5, 1)
If IsNumeric(a5) = False Then
    Exit Sub
End If
a5 = Val(a5)
If a5 > 9 Then
    Cells(5, 2) = "цифры:0,1,2,3,4,5,6,7,8,9"
    Exit Sub
End If
If a5 = 0 Then
    Cells(6, 1) = "всё"
    Exit Sub
End If
For i = 1 To 10
c = i + 5
If a5 >= i Then
    Cells(c, 1) = n(i - 1)
Else
    Exit Sub
End If
Cells(c + 1, 1) = "всё"
Next i
End With
End Sub