Break down of this VB code

Hi, I'm not good in VB codes. Can someone help me understand the meaning of this code. and what does each code does.

thank you so much.

Range("M1").Select
ActiveCell = "Answer"
lr = Cells(Rows.Count, 1).End(xlUp).Row
While ActiveCell.Row < lr
ActiveCell.Offset(1).Select
For c = 11 To 2 Step -1
If Cells(ActiveCell.Row, c) > 0 Then GoTo Non0
Next c
Non0:
myCol = c + 1
i = 0
For c = myCol To 11
If Len(Cells(ActiveCell.Row, c)) > 0 Then i = 1 + i
Next c

ActiveCell = i
Wend
End Sub