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("G3:G" & iLast)) Is Nothing Then

        If Target.Offset(0, 1).DisplayFormat.Interior.Color = RGB(255, 0, 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(lr + 1, 6) = Cells(Target.Row, 8)        ' H
                .Cells.Columns.AutoFit
            End With

        End If

    End If

End Sub