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