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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.