Sub CreateTable()
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$2"), , xlNo).Name = "Table2" 'สร้างตาราง

    'ตั้งชื่อคอลัมน์
    Range("Table2[[#Headers],[Column1]]").FormulaR1C1 = "Header 1"
    Range("Table2[[#Headers],[Column2]]").FormulaR1C1 = "Header 2"
    Range("Table2[[#Headers],[Column3]]").FormulaR1C1 = "Header 3"

    'กำหนดค่าใน Cell
    Range("A2").Value = "1"
    Range("B2").Value = "2"
    ActiveSheet.ListObjects("Table2").Resize Range("$A$1:$C$10") 'เปลี่ยนขนาดตาราง
    Range("C2").Value = "=SUM(A2:B2)" 'กำหนดการ Sum
    Range("C3:C10").Clear 'ล้างค่าใน Cell

    Columns("A:C").EntireColumn.AutoFit 'ปรับขนาดแบบ Auto
End Sub

Sub TestCreateTable()
    'VBA Error Handler
     On Error GoTo ErrorHandler
        Call CreateTable
   Exit Sub
ErrorHandler:
        Select Case Err.Number
        Case 1004 'RunTime Error 1004
            Range("Table2[#All]").ClearContents
            Call CreateTable
        End Select
   Resume Next
End Sub