Sub bb()
    Dim wb As Workbook:         Set wb = ThisWorkbook
    Dim wsPIVOT As Worksheet:   Set wsPIVOT = wb.Sheets("Обработка")
    Dim lastRowPIVOT As Integer: lastRowPIVOT = wsPIVOT.Cells(Rows.Count, 1).End(xlUp).Row
    Dim lastRowTarget As Integer
    Application.ScreenUpdating = False
    For i = lastRowPIVOT To 2 Step -1
        lastRowTarget = wb.Sheets(Cells(i, 2).Text).Cells(Rows.Count, 1).End(xlUp).Row
        With wsPIVOT
            .Range(Cells(i, 1), Cells(i, 9)).Copy wb.Sheets(Cells(i, 2).Text).Cells(lastRowTarget + 1, 1)
            .Rows(i).Delete Shift:=xlUp
        End With
    Next i
    Set wb = Nothing
    Set wsPIVOT = Nothing
    Application.ScreenUpdating = True
    MsgBox "ГОТОВО!=)"
End Sub