DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub Insert_Table()
On Error Resume Next
ActiveSheet.ListObjects(1).Unlist
On Error GoTo 0
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A10:H" & Cells(Rows.Count, 1).End(3).Row), , xlYes).Name = "Table1"
End Sub