Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub

Dim iLast As Long
iLast = Me.Columns("A").Find(what:="*", _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row
' Debug.Print iLast

If Not Intersect(Target, Range("M3:M" & iLast)) Is Nothing Then

If Target.Offset(0).DisplayFormat.Interior.Color = RGB(153, 204, 0) Then

With ThisWorkbook.Worksheets("Отдел")

Dim lr As Long
lr = .Columns("F").Find(what:="*", _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row
' Debug.Print lr
.Cells(lr + 1, 1) = Cells(Target.Row, 1) ' A
.Cells(lr + 1, 2) = Cells(Target.Row, 2) ' B
.Cells(lr + 1, 3) = Cells(Target.Row, 3) ' C
.Cells(lr + 1, 4) = Cells(Target.Row, 4) ' D
.Cells(lr + 1, 5) = Cells(Target.Row, 5) ' E
.Cells.Columns.AutoFit
End With

End If

End If

End Sub