Sub Мяу()
    Dim rng As Range
    Dim rowN&, rowI&
    With Worksheets("БД")
        Set rng = .Range("C4").CurrentRegion
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=rng(7) _
                    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields.Add Key:=rng(6) _
                    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields.Add Key:=rng(1) _
                    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange rng
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        With rng
            On Error Resume Next
            rowN = .Columns(7).Find("Москва*", .Columns(7).Cells(1), xlFormulas, , xlByRows, xlNext, True).Row
            rowI = .Columns(7).Find("Москва*", .Columns(7).Cells(1), xlFormulas, , xlByRows, xlPrevious, True).Row
            rowN = rowN - .Row + 1
            rowI = rowI - .Row + 1
            .Rows(rowN & ":" & rowI).Copy Sheets("Отчет").[c5]
        End With
    End With
End Sub