перенес даных из нескольких листов в один лист

[e_v_b]

Мне надо если в листах магазин1, магазин2, магази3 есть Виды работ (4(D) колонка) и они не выполнены (колонка 7 (G)) то должны появиться в листе ИТОГ, а если стоит в колонке (7) дата выполнения она не должна появляться на листе ИТОГ, но должна появиться в листе ВЫПОЛНЕНО. Прикрепляю файл где все видно как должно быть , ОГРОМНАЯ ПРОСЬБА сделать хоть как формулами или макросом , если макросом то можно делать комментарий т.к. это пример ПОЖАЛУЙСТА ПОМОГИТЕ

[SAS888]

Можно так:

Sub Main()
    Dim ws As Worksheet: Application.ScreenUpdating = False
    Sheets("итог").Rows("11:" & Rows.Count).ClearContents
    Sheets("выполнено").Rows("11:" & Rows.Count).ClearContents
    For Each ws In Sheets
        If ws.Name Like "магазин*" Then
            With ws.Rows(10)
                .AutoFilter: .AutoFilter Field:=4, Criteria1:="<>"
                .AutoFilter Field:=7, Criteria1:="="
                ws.Rows("11:" & ws.UsedRange.Row + ws.UsedRange.Rows.Count).Copy _
                    Sheets("итог").Rows(Sheets("итог").Cells(Rows.Count, 1).End(xlUp).Row + 1)
                .AutoFilter Field:=7, Criteria1:="<>"
                ws.Rows("11:" & ws.UsedRange.Row + ws.UsedRange.Rows.Count).Copy _
                    Sheets("выполнено").Rows(Sheets("выполнено").Cells(Rows.Count, 1).End(xlUp).Row + 1)
                .AutoFilter
    End With: End If: Next
End Sub

Пример использования во вложении. Откройте файл и запустите макрос "Main".
Если так устраивает - добавлю комментарии.

[e_v_b]

БОЛЬШОЕ СПАСИБО!!!!