Private Sub Worksheet_Change(ByVal Target As Range)
Dim rArea As Range, rCell As Range, tmp As Variant
Set Target = Intersect(Target, Range("F7:H26"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each rArea In Target.Areas
For Each rCell In rArea
If rCell.Value <> "" Then
tmp = rCell.Value
Intersect(rCell.EntireRow, Range("F7:H26")).ClearContents
rCell.Value = tmp
End If
Next
Next
Application.EnableEvents = True
End Sub