A resposta é similar à resposta: Copiar e colar célula quando for alterada
Porém, ao invés de copiar e colar, deve-se limpar a célula.
Inserir código de Evento
Utilizar o evento Worksheet_Change
, em que este deverá ser colocado dentro da planilha em que os dados se encontram.
Por Exemplo, no meu caso foi em Planilha1:

Código para uma célula
O código é acionado toda vez que a planilha possui alguma alteração na coluna H, em que a célula em I é limpa com .ClearContents
Option Explicit
Private Const H As Long = 8 '<-- Coluna 8 ou H
Private Const I As Long = 9 '<-- Coluna 9 ou I
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo CleanExit
Application.EnableEvents = False
Dim coluna As Long '<-- Coluna selecionada
Dim linha As Long
coluna = Target.Column
linha = Target.Row
'Se ocorrer mudanças na coluna H
If coluna = H Then
Cells(linha, I).ClearContents
End If
CleanExit:
Application.EnableEvents = True
On Error GoTo 0
End Sub
Código para múltiplas células
Este código irá realizar a ação de limpar a coluna ao lado da célula que foi alterada na coluna H.
Mesmo que sejam realizadas alterações em múltiplas células ou se o intervalo seja um intervalo de células não contíguas.

Option Explicit
Private Const H As Long = 8 '<-- Coluna 8 ou H
Private Const I As Long = 9 '<-- Coluna 9 ou I
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo CleanExit
Application.EnableEvents = False
Dim Coluna As Long '<-- Coluna selecionada
Dim linha As Long
Dim Area
Dim rng As Range
Coluna = Target.Column
'Caso mais de uma célula seja alterada
If Target.Count > 1 And Coluna = H Then
Set rng = Range(Target.Address)
For Each Area In rng.Areas
Area.Offset(, 1).ClearContents
Next
GoTo CleanExit
End If
'Se ocorrer mudanças na coluna H
If Coluna = H And Target.Count = 1 Then
linha = Target.Row
Cells(linha, I).ClearContents
End If
CleanExit:
Application.EnableEvents = True
On Error GoTo 0
End Sub