Получить таблицу значений функции

Sub Sitro220()
Dim m&, i&, w
m = InputBox("Введите целое M")
For i = 0 To m
    w = w + C(m, i)
Next
MsgBox IIf(w = 2 ^ m, "Внатуре равно", "Не равно")
End Sub
 
Function C(m, n)
C = Fac(m) / Fac(n) / Fac(m - n)
End Function
 
Function Fac(x)
Dim i&
Fac = 1
If x < 2 Then Exit Function
For i = 2 To x
    Fac = Fac * i
Next
End Function

Private Sub CommandButton1_Click()
' Объявление целочисленных переменных для всех процедур? где mft, nft, raznft - факториалы m,n,(m-n) соответственно
Dim I, J, H, K, m, n, mft, nft, C1, C2, raznft, razn As Integer
' Считывание числа m из желтой ячейки (B1)
m = Cells(1, 2)
' Задаем начальное значение переменной mf
mft = 1
nft = 1
raznft = 1
C1 = 0
 
For H = 1 To m
 'Факториал m
  mft = mft * H
 ' Увеличиваем счетчик операций на 1 (переходим к следующей операции в цикле)
Next H
 
    For I = 0 To m
     
      If I = 0 Then
      nft = 1
    Else
             ' Цикл от 1го элемента до m
             For J = 1 To I
                'Факториал i
                nft = nft * J
                ' Увеличиваем счетчик операций на 1 (переходим к следующей операции в цикле)
             Next J
    End If
       razn = m - I
             For K = 1 To razn
                'Факториал разности
                raznft = raznft * K
                ' Увеличиваем счетчик операций на 1 (переходим к следующей операции в цикле)
             Next K
       C1 = C1 + mft / (nft * raznft)
' Увеличиваем счетчик операций на 1 (переходим к следующей операции в цикле)
     Next I
 
' Подсчет числа сочетаний из m по n
C2 = 2 ^ m
Cells(2, 2) = C1
Cells(3, 2) = C2
Cells(1, 3) = mft
End Sub

Sub Sitro221()
Dim a, b, h, lna, out
a = InputBox("Введите а", , 10)
b = InputBox("Введите b", , 200)
h = InputBox("Введите h", , 15)
lna = Log(a)
out = "X" & vbTab & "Y" & vbLf & vbLf
For a = a To b Step h
    out = out & a & vbTab & Log(a) / lna & vbLf
Next
MsgBox out
End Sub