Insert row by date

[LOSS1574]

hi LOSS1574,

use following code:

 
Sub Reorganize()
    Dim i, LRow As Long
    Dim j As Date
    Dim FirstDate, NextDate As Date
    LRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = LRow To 4 Step -1
        FirstDate = Cells(i, 3).Value
        NextDate = Cells(i - 1, 3).Value
        For j = FirstDate To NextDate Step -1
            If Weekday(j, vbMonday) = 6 Or Weekday(j, vbMonday) = 7 Then
                Rows(i).EntireRow.Insert
                Cells(i, 1).Value = WeekdayName(Weekday(j, vbMonday))
                Cells(i, 3).Value = Format(j, "dd-mmm")
            End If
        Next j
    Next i
    LRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To LRow
        Cells(i, 2).Value = i - 2
    Next i
End Sub

or check attachment for solution.

Additionaly, The code is adding line for friday and saturday in lieu of Saturday and Sunday.