For i = 2 To rngList.Count
        rngCrit.FormulaR1C1 = _
            "=" & rngCol(1).Address(False, False, xlR1C1, True) & "=""" & rngList(i) & """"
        With Workbooks.Add
            With .Sheets(1)
                rngTable.AdvancedFilter xlFilterCopy, rngCrit.Offset(-1).Resize(2), .[A1]
                rngTable.Parent.Rows("1:3").Copy
                .Rows("1:1").Insert Shift:=xlDown
                .UsedRange.EntireColumn.AutoFit
            End With
            Application.DisplayAlerts = False
            .SaveAs ThisWorkbook.Path & "\" & rngList(i), 51
            Application.DisplayAlerts = True
            .Close True
        End With
    Next i

Sub дата1()

Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim iNumber As String
Dim arr(1 To 7) As Variant
   
   arr(1) = "понедельник"
   arr(2) = "вторник"
   arr(3) = "среда"
   arr(4) = "четверг"
   arr(5) = "пятница"
   arr(6) = "суббота"
   arr(7) = "воскресенье"
        
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = 1 To 7
        iNumber = arr(i)
        For j = 1 To LastRow
            If Cells(j, 3) Like "*" & iNumber & "*" Then
               Cells(j, 1) = Cells(j, 3)' тут вставить ======================
            End If         
        Next j
    Next i
End Sub