Sub example()

    For i = 1 To 5
        Cells(i, 11) = 0
    Next i


    For i = 1 To 10
        Cells(1, 11) = Cells(1, 11) + Cells(1, i)
    Next i

    Cells(1, 11) = Cells(1, 11) / 10

    For i = 1 To 10
        Cells(2, i) = Cells(1, i) - Cells(1, 11)

        Cells(3, i) = Cells(2, i) ^ 2
        Cells(4, i) = Cells(2, i) ^ 3
        Cells(5, i) = Cells(2, i) ^ 4

        Cells(2, 11) = Cells(2, 11) + Cells(2, i)
        Cells(3, 11) = Cells(3, 11) + Cells(3, i)
        Cells(4, 11) = Cells(4, 11) + Cells(4, i)
        Cells(5, 11) = Cells(5, 11) + Cells(5, i)
    Next i

    Cells(2, 11) = Cells(2, 11) / 10
    Cells(3, 11) = Cells(3, 11) / 10
    Cells(4, 11) = Cells(4, 11) / 10
    Cells(5, 11) = Cells(5, 11) / 10

End Sub

Sub IceCream()
    For i = 1 To 10
        Cells(i, 1) = 2 * i
    Next i

    For i = 1 To 10
        Cells(i, 2) = 2 * i - 1
    Next i

    For i = 1 To 10
        Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
    Next i
End Sub

Sub Faint()
    s = 0
    For i = 1 To 10
    s = s + 1
        For j = 1 To 3

            Cells(1, j) = s
        Next
    Next
End Sub