Split of data into seperate rows using a date range

Hi,

I have a tricky problem (at least for me) involving a long list that summarize data for a date range in one row per person. I need to split the one row into individual rows based on the date range.

Every entry contains basic data of a person that should stay the same for every row. In the example file there are 3 columns that contains the following; total hours, number of days and a starting date.

I need to split the hours (column I) evenly on as many rows as it says in (column J) and I need to add individual dates for each row starting from the start date in (column O). I hope my explanation make sense. I apologize for any grammar mistakes.

I believe it should be possible but I'm not skilled enough to solve it. Any help would be much appreciated.

Best regards
Anders

Try this code to see if this works as per your requirement.

Sub ploppmongo()
Dim sws, dws As Worksheet
Dim rng, cell As Range
Dim lr, i As Long
Dim hr, amt As Double
Dim days As Integer
Set sws = ThisWorkbook.Sheets("Input")
Set dws = ThisWorkbook.Sheets("Output")
lr = sws.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = sws.Range("J2:J" & lr)
sws.Range("A1:O1").Copy dws.Range("A1")
For Each cell In rng
    hr = cell.Offset(0, -1) / cell
    days = cell / cell
    amt = cell.Offset(0, 5) / cell
    For i = 1 To cell
        sws.Range("A" & cell.Row & ":O" & cell.Row).Copy dws.Range("A" & Rows.Count).End(3)(2)
        dws.Range("I" & Rows.Count).End(3)(1).Value = hr
        dws.Range("J" & Rows.Count).End(3)(1).Value = days
        dws.Range("O" & Rows.Count).End(3)(1).Value = amt
        dws.Range("I" & Rows.Count).End(3)(1).NumberFormat = "0.00"
    Next i
Next cell
End Sub

Hi again,

It looks like I was a bit to fast with my cheers for a problem solved.

I need data from additional columns after the O column. Where in the code can I adjust this?
The information should be as is but on every row just like the others.

Thanks for all help!

BR Anders