How to divide cell value in many lines?

Alex_Barbosa99 

Sub expand()

Dim h, i, j, k, l, m, n As Long

Range("D:E").Clear
m = 1
h = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To h

j = Cells(i, 2).Value / Range("I1").Value
k = Application.WorksheetFunction.RoundUp(j, 0)

For l = 1 To k
Cells(m, 4).Value = Cells(i, 1).Value

If Cells(i, 2).Value - n > Range("I1").Value Then
Cells(m, 5).Value = Cells(i, 2).Value / j
Else
Cells(m, 5).Value = Cells(i, 2).Value - n
End If
n = n + Range("I1").Value
m = m + 1

Next l
n = 0

Next i

End Sub

You can try these lines of code. In the attached file you can click the button in cell H2 to run the macro. The divisor is entered in cell I2 which is 120 in this example.