Sub ertert()
Dim x, i&, k&, s$
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1

    With Workbooks("2015_10_30_.xlsx").Sheets(1)
        x = .Range("A1:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With
    For i = 1 To UBound(x, 1)
        If Len(x(i, 1)) Then .Item(x(i, 1)) = x(i, 4)
    Next i

    With Workbooks("7910470.xlsm").Sheets("Еда")    ' or Sheets("Питие") :)
        x = .Range("A1", .Cells(Rows.Count, 1).End(xlUp)).Value
    End With
    For i = 1 To UBound(x, 1)
        If Len(x(i, 1)) Then
            If .exists(x(i, 1)) Then
                x(i, 1) = .Item(x(i, 1))
            Else
                s = s & x(i, 1) & Chr(10): x(i, 1) = vbNullString: k = k + 1
            End If
        End If
    Next i
End With

Workbooks("7910470.xlsm").Sheets("Еда").Range("B1").Resize(UBound(x)).Value = x
MsgBox "Пропущенная еда в кол-ве: " & k & Chr(10) & Chr(10) & s, 64
End Sub

Sub IMPORT()
Dim srcBook
Set wb = ThisWorkbook
Set wf = WorksheetFunction
Dim oFileSystemObject As Object: Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
If oFileSystemObject.FileExists(wb.Path & "\Январь.xls") Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & "\Январь.xls", ReadOnly:=True, UpdateLinks:=0)
    wb.Sheets("Главная").Range("B5") = wf.Sum(srcBook.Sheets("1Понедельник").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B6") = wf.Sum(srcBook.Sheets("1Вторник").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B7") = wf.Sum(srcBook.Sheets("1Среда").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B5:B7").Font.Color = vbRed
    srcBook.Close SaveChanges:=False
End If
Dim oFileSystemObject As Object: Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
If oFileSystemObject.FileExists(wb.Path & "\Февраль.xls") Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & "\Февраль.xls", ReadOnly:=True, UpdateLinks:=0)
    wb.Sheets("Главная").Range("B9") = wf.Sum(srcBook.Sheets("2Понедельник").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B10") = wf.Sum(srcBook.Sheets("2Вторник").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B11") = wf.Sum(srcBook.Sheets("2Среда").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B12") = wf.Sum(srcBook.Sheets("2Четверг").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B9:B12").Font.Color = vbRed
    srcBook.Close SaveChanges:=False
End If
Dim oFileSystemObject As Object: Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
If oFileSystemObject.FileExists(wb.Path & "\Март.xls") Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & "\Март.xls", ReadOnly:=True, UpdateLinks:=0)
    wb.Sheets("Главная").Range("B14") = wf.Sum(srcBook.Sheets("3Понедельник").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B15") = wf.Sum(srcBook.Sheets("3Вторник").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B16") = wf.Sum(srcBook.Sheets("3Среда").Range("A3,A7,A9,A11"))
    wb.Sheets("Главная").Range("B14:B16").Font.Color = vbRed
    srcBook.Close SaveChanges:=False
'и так далее...
End Sub

Sub Макрос1()
Dim sFolder As String, sFiles As String
sFolder = ActiveWorkbook.Path
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*_Прайс.xls*")
Workbooks.Open Filename:=sFolder & sFiles
Workbooks(1).Activate