Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 3
        If Target.Value = "готов" Then
            Cells(Target.Row, 1).Resize(, 3).Copy Cells(Rows.Count, 13).End(xlUp)(2)
            Cells(Target.Row, 1).Resize(, 3).Delete xlUp
        End If
    Case 1, 2
        If Application.CountA(Cells(Target.Row, 1).Resize(, 2)) = 2 Then _
           [a1].CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
         , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
           False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
                    :=xlSortNormal
    End Select
End Sub