Вычислить значение выражения и составить блок-схему

Private Sub CommandButton1_Click()
Dim y As Double, x As Single, n As Long, e As Single
    Range("A1:F50").Select
    Selection.ClearContents
e = InputBox("e")
x = InputBox("x")
y = 1
n = 2
Cells(n / 2, 1) = "x"
Cells(n / 2, 2) = "n"
Cells(n / 2, 3) = "x ^ n"
Cells(n / 2, 4) = "n ^ n"
Cells(n / 2, 5) = "x ^ n / n ^ n"
Cells(n / 2, 6) = "y"
Do
y = y + x ^ n / n ^ n
Cells(n / 2 + 1, 1) = x
Cells(n / 2 + 1, 2) = n
Cells(n / 2 + 1, 3) = x ^ n
Cells(n / 2 + 1, 4) = n ^ n
Cells(n / 2 + 1, 5) = x ^ n / n ^ n
Cells(n / 2 + 1, 6) = y
n = n + 2
Loop Until Abs(x ^ n / n ^ n) < e
End Sub