Sub Macro1()
Dim LastRow As Long, i As Long, Freerow As Long
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    Range(Cells(7, 1), Cells(LastRow + 1, 8) ).ClearContents
    Freerow = 7
    Application.ScreenUpdating = False
    With Sheets("РАСХОД_Б.Н")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(7, 2), .Cells(LastRow, 2)).Copy Cells(7, 2)
        .Range(.Cells(7, 3), .Cells(LastRow, 3)).Copy Cells(7, 3)
        .Range(.Cells(7, 4), .Cells(LastRow, 4)).Copy Cells(7, 4)
        .Range(.Cells(7, 5), .Cells(LastRow, 5)).Copy Cells(7, 7)
        .Range(.Cells(7, 6), .Cells(LastRow, 6)).Copy Cells(7, 8)
    End With
    Freerow = Cells(Rows.Count, 2).End(xlUp).Row + 1
    With Sheets("РАСХОД_СКЛАД")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        .Range(.Cells(7, 2), .Cells(LastRow, 2)).Copy Cells(Freerow, 2)
        .Range(.Cells(7, 3), .Cells(LastRow, 3)).Copy Cells(Freerow, 3)
        .Range(.Cells(7, 4), .Cells(LastRow, 4)).Copy Cells(Freerow, 4)
        .Range(.Cells(7, 5), .Cells(LastRow, 5)).Copy Cells(Freerow, 5)
        .Range(.Cells(7, 6), .Cells(LastRow, 6)).Copy Cells(Freerow, 6)
        .Range(.Cells(7, 7), .Cells(LastRow, 7)).Copy Cells(Freerow, 7)
        .Range(.Cells(7, 8), .Cells(LastRow, 8)).Copy Cells(Freerow, 8)
    End With
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("C7" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A7:H2000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 7 To LastRow
        Cells(i, 1) = i - 6
    Next
    Application.ScreenUpdating = True
End Sub