«заявленная определенная или объектная ошибка» при попытке создать таблицу

Question

в основном то, что заголовок говорит, im получить «определенную или определенную объектом ошибку» и я не могу понять, что я сделал неправильно.

благодаря

Dim lastR As Long 
Dim lastC As Long 
Dim StartCell As Range 
ThisWorkbook.Sheets(2).Activate 
Set StartCell = Range("A1") 
'Find Last Row and Column 
    lastR = Cells(Rows.Count, StartCell.Column).End(xlUp).Row 
'Select Range 
Dim table As ListObject 
Set table = ActiveSheet.ListObjects.Add(xlSrcRange, Range(StartCell, "H" & lastR), xlYes) 
Dim lastR1 As Long 
Dim StartCell1 As Range 
ThisWorkbook.Sheets(3).Activate 
Set StartCell1 = Range("A1") 
'Find Last Row and Column 
lastR1 = Cells(Rows.Count, StartCell1.Column).End(xlUp).Row 
'Select Range 
Dim table1 As ListObject 
Set table1 = ActiveSheet.ListObjects.Add(xlSrcRange, Range(StartCell1, "H" & lastR1), xlYes) 

Answer 1

apperantly проблема в том, что я создал кнопку Active X и вставить код там ..

работал с обычной кнопкой