|First, if you are trying to learn how to write macros, I suggest that you read through this How-To. It will teach you some basic steps on debugging VBA code. Not only will these debugging steps be a great help in determining what is going with code that you have written, but (maybe more importantly) they can help you figure out what is going on with code that others have written. Once you see how others are doing things, you can start to incorporate those techniques into your own code.|
As for the code you've requested, give this a try. Note: I can't see the Row numbers in the video you posted, so I assumed that your Columns Headings are in Row 1.
Application.ScreenUpdating = False
'Create Valid Date Column
Cells(1, "X").Value = "Valid Date"
'Determine last Row with data in Column Y
lastRw = Cells(Rows.Count, "Y").End(xlUp).Row
'Loop through rows in reverse order
For rw = lastRw To 2 Step -1
'Set variable for Date calculation
addDates = Cells(rw, "Y")
For newRw = 1 To Cells(rw, "Y")
Cells(rw, "Y").EntireRow.Insert shift:=xlDown
'Insert dates in Valid Date column
Cells(rw + 1, "X") = Cells(rw + 1, "V") + addDates
'Decrement Date variable to be added
addDates = addDates - 1
'Place first date in original row
Cells(rw, "X") = Cells(rw, "V")
Application.ScreenUpdating = True
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.
message edited by DerbyDad03