Команды VBA к умной таблице

  With Лист1.ListObjects("Таблица1")
       .ListColumns.Count
       .ListColumns(индекс).Name
       .ListRows(индекс).Range(диапазон).NumberFormat

Sub Test3()  
    Dim rngI As Range  
    Set rngI = Range("A22")  
    If rngI.HasFormula Then  
        MsgBox rngI.Formula  
    End If  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then    ' Изменения произошли в одной ячейке
      Stop
        If Not Intersect(Target, ListObjects("Таблица1").Range) Is Nothing Then    ' работаем с умной таблицей с именем Таблица1
            t = Target.Value
            If Target.HasFormula Then
             Stop
                '                Target.Clear
            End If
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count = 1 Then    ' Изменения произошли в одной ячейке
        If Not Intersect(Target, ListObjects("Таблица1").DataBodyRange) Is Nothing Then        ' работаем с умной таблицей с именем Таблица1
            If Target.HasFormula Then
                Target.ClearContents
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub