Одноклеточная амеба

msgbox 2^(n\3)

Sub Деление_амеб()
    Dim n&, max&, ameb#
    ameb = 1
    max = Val(InputBox("Укажите период деления амеб в часах", , 24))
    Columns("A:B").ClearContents
    Cells(1, 1) = "Время:": Cells(1, 2) = "Число амеб:"
    While n <= max
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = n
        Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = ameb
        n = n + 3
        ameb = ameb * 2
    Wend
End Sub

Sub Деление_амеб1()
    Dim n&, max&, ameb#
    ameb = 1
    max = Val(InputBox("Укажите период деления амеб в часах", , 21))
    Columns("A:B").ClearContents
    With Columns("B")
      .HorizontalAlignment = xlLeft
      .NumberFormat = "@"
      .Font.Name = "Courier New"
    End With
    Cells(1, 1) = "Время:": Cells(1, 2) = "Число амеб:"
    For n = 0 To max
      Cells(n + 2, 1) = n
      Select Case n Mod 3
      Case 0: Cells(n + 2, 2) = String(ameb, "o")
      Case 1: Cells(n + 2, 2) = String(ameb, "O")
      Case Else: Cells(n + 2, 2) = String(ameb, "8"): ameb = ameb * 2
      End Select
    Next
End Sub