Ak sa zmeni G vymaze sa H

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Overenie ci bola zmenena hodnota v stlpci G
    If Not Intersect(Target, Columns("G")) Is Nothing Then
        Application.EnableEvents = False ' Vypne udalosti aby sme sa vyhli rekurzii
        On Error GoTo ErrorHandler ' Osetrenie chyb
        ' Vymazanie hodnoty v prislusnom riadku stlpca H
        Range("H" & Target.Row).ClearContents
ErrorHandler:
        Application.EnableEvents = True ' Zapne udalosti späť
    End If
End Sub