Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Tabela1")
Dim KeyCells As Range
Set KeyCells = tbl.Range.Columns("C:Q")
If Not Application.Intersect(KeyCells, ActiveSheet.Range(Target.Address)) Is Nothing Then
call
End If
End Sub