Private Sub Worksheet_Change(ByVal Target As Range)
Dim vrtCell As Variant
With Target
If .Column = 6 Then
For Each vrtCell In Range(Cells(1, 2), Cells(28, 3))
If vrtCell.Value = .Offset(0, -1).Value Then
vrtCell.Value = .Value
End If
Next vrtCell
End If
End With
End Sub