Auto Update Data Link Pull Down List

[Mstg007]

.
I have found an example of what I am wanting to do with the code below. However, I am trying to get my pull down to show a range of (F7 to I7) instead of the (F7 to F10). The data validation pull down shows the correct list but does not update automatically. Any help would be great!
Thanks alot



Please see the link below of where i found this information.
Automatically change validated entries when source of validation list changes

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim count_cells As Integer
Dim new_value As String
Dim old_value As String
For count_cells = 1 To Range("F6").CurrentRegion.Rows.Count - 1
    If Intersect(Target, Range("F" & count_cells + 6)) Is Nothing Then
    Else
        Application.EnableEvents = False
        new_value = Target.Value
        Application.Undo
        old_value = Target.Value
        Target.Value = new_value
        Range("B3:B6").Select
        Selection.Replace What:=old_value, Replacement:=new_value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Target.Select
    End If
Next count_cells
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub