Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C7]) Is Nothing Then
If Target <> "" Then
col = Application.Match(Target.Offset(0, -1), [1:1], 0)
If Not IsError(col) Then Cells(Target.Row, col) = Target
End If
End If
End Sub