Hi,

Just the basic to hangout with For Loop... 

Sub test()
Dim totrow As Long
totrow = Range("a1").End(xlDown).Row
For i = 2 To totrow
    For j = 6 To Cells(i, 5) + 6
        Cells(i, j) = Cells(i, "A") + j - 6
    Next j
Next i
End Sub