Пожалуйста, кто-нибудь может объяснить этот код построчно

Question

Этот фрагмент кода выполняет последовательность Фибоначчи в VBA, но я не понимаю, что делает или что означает каждая строка.

Sub fib()
    Dim numcount As Integer
    Dim datum As Long

    For numcount = 1 To 40
        If numcount = 1 Then
            datum = 0
        ElseIf numcount = 2 Then
            datum = 1
        Else
            datum = ActiveCell.Offset(numcount - 2, 0) + ActiveCell.Offset(numcount - 3, 0)
        End If
        ActiveCell.Offset(numcount - 1, 0) = datum
    Next
End Sub