Sub add_sheets()
'
' === Sheets Macro ===
' TODO:
' 1. change start date
' 2. change old date
' 3. change range at lines :
' 4. run and enjoy ;)


    Dim startDate
    Dim newDate As Date
    Dim oldDate As Date
    Dim index As Integer

    oldDate = CDate("25/07/2019")
    startDate = CDate("01/08/2019")

    For index = 0 To 22
        newDate = DateAdd("Ww", 1, startDate)

        sheets(Format(startDate, "dd.mm.yy")).Select

        range("A1").Select
        range("A1").Activate
        ActiveCell.Formula = "=MID(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))+1,255)"



        range("A1:I81").Select
        range("A2").Activate
        Selection.Copy
        sheets(sheets.Count).Select
        sheets.Add After:=ActiveSheet
        sheets(sheets.Count).Select
        range("A1").Select
        ActiveSheet.Paste
        sheets(sheets.Count).Select
        sheets(sheets.Count).Name = Format(newDate, "dd.mm.yy")
        range("B4").Select
        ActiveCell.Formula = Replace(ActiveCell.Formula, Format(oldDate, "dd.mm.yy"), Format(startDate, "dd.mm.yy"))
        range("B4").Select
        Selection.AutoFill Destination:=range("B4:B81")


        sheets(sheets.Count).Select
        sheets.Add After:=ActiveSheet
        sheets(sheets.Count).Select
        sheets(sheets.Count).Name = "Mirror " + Format(newDate, "dd.mm")

        sheets("Mirror " + Format(startDate, "dd.mm")).Select
        range("A1:C81").Select
        Selection.Copy

        sheets(sheets.Count).Select

        range("A1").Select

        ActiveSheet.Paste

        range("A1").Select
        range("A1").Activate
        ActiveCell.Formula = "=MID(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))+1,255)"


        range("B4").Select
        Application.CutCopyMode = False
        ActiveCell.Formula = Replace(ActiveCell.Formula, Format(startDate, "dd.mm.yy"), Format(newDate, "dd.mm.yy"))

        range("B4").Select
        Selection.AutoFill Destination:=range("B4:B81")

        range("C4").Select


        ActiveCell.Formula = "=" + Format(newDate, "dd.mm.yy") + "!I4"
        range("C4").Select
        Selection.AutoFill Destination:=range("C4:C81")

        oldDate = startDate
        startDate = newDate
     Next
End Sub