Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Faça assim:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value <> Empty Then
MsgBox "Alterado", vbInformation
Else
MsgBox "Deletado", vbInformation
End If
End If
End Sub