I have a summary list of all projects that my employees work on over the course of the month. Its gets sorted by date and project and is a pretty extensive list.
My goal is simple...to search through the list and add a blank row between each project.
I have written this code, that does work, but it takes quite some time to execute and I know there has to be a better way.
Can you guys take a look at it and see if there is more efficient way to do this?
Dim myarray As Variant Dim cell As Range Dim mycount As Integer Dim i As Integer Set myarray = Worksheets("summary").Range(Range("b2"), Range("B65536").End(xlUp)) Set cell = Range("b2") mycount = myarray.Count For i = 0 To mycount If cell.Offset(i, 0).Value <> cell.Offset(i + 1, 0).Value Then Range(cell.Offset(i + 1, -1), cell.Offset(i + 1, 3)).Insert shift:=xlDown i = i + 1 mycount = mycount + 1 End If Next i
Thanks in advance!!