Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(3)) Is Nothing Then
        Application.EnableEvents = False
        Dim c As Range
        For Each c In Target
            If c.Column = 3 Then
                If c.Row > 3 Then
                    If c.Value = "" Then
                        Rows(c.Row).Range("D1:F1").ClearContents
                    Else
                        With Rows(c.Row).Range("D1:F1")
                            .FormulaR1C1 = "=VLOOKUP(C3,Список!C2:C5,COLUMN(C[-2]),0)"
                            .Calculate
                            Dim a As Variant
                            a = .Cells
                            .Cells = a
                        End With
                    End If
                End If
            End If
        Next
        Application.EnableEvents = True
    End If
End Sub