Need Macro- Insert rows based on dates and copy info from that row
 

I need a macro
that will insert a number of blank rows
based on the number of months between a start and end date
and then copy the information in the reference row to the new blank rows.

repeat for each start and end date sequence.

The records are over 8,350.. so ill also need some idea how to get it to
stop when it fills the worksheet so i can transfer those into another workbook

Need Macro- Insert rows based on dates and copy info from that row
 

Assuming start date in column A, end date in column B

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim NumRows As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1

NumRows = .Cells(i, "B").Value2 - .Cells(i, "A").Value2
If NumRows 0 Then

.Rows(i + 1).Resize(NumRows).Insert
.Rows(i).Copy .Cells(i + 1, "A").Resize(NumRows)
End If
Next i
End With

End Sub


--

HTH

Bob

"Katerinia" wrote in message
...
I need a macro
that will insert a number of blank rows
based on the number of months between a start and end date
and then copy the information in the reference row to the new blank rows.

repeat for each start and end date sequence.

The records are over 8,350.. so ill also need some idea how to get it to
stop when it fills the worksheet so i can transfer those into another
workbook