Удаление значений по фильтру с использованием макроса

[sergo44441]

Добрый день, уважаемые знатоки.
Необходимо объединить данные из файлов в папке. Процедура проводится регулярно. Хочу сделать так, чтобы проводилось обновление данных за определенную неделю (вводим ее с клавиатуры, данные за введенную неделю удалялись бы, затем бы добавлялась новая информация.
На примере прикрепленного файла прошу помочь с процедурой удаления.
Макрос должен запрашивать название обновляемой недели, ставить _автофильтр_, по полю неделя выделять значения, соответствующие введенной неделе, и удалять их, далее очищать фильтр.

[RAN]

Код Выделить Развернуть

Sub Мяу()
    Dim sInput$
    sInput = InputBox("Выбор недели")
    With Sheets(1)
        With .Range(.Cells(2, "C"), .Cells(.Rows.Count, "A").End(xlUp))
            .AutoFilter Field:=3, Criteria1:=sInput
            .ClearContents
            .AutoFilter Field:=3
        End With
    End With
End Sub


Жаль, что нам так и не удалось заслушать начальника транспортного цеха.
Удалить ответ, что ли?