Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "G2" Then
If Not Target Is Nothing Then
If Target <> "" Then
Application.EnableEvents = False
Target.Offset(1, 0).ClearContents
Application.EnableEvents = True
End If
End If
ElseIf Target.Address(0, 0) = "G3" Then
If Not Target Is Nothing Then
If Target <> "" Then
Application.EnableEvents = False
Target.Offset(-1, 0).ClearContents
Application.EnableEvents = True
End If
End If
End If
End Sub