Ctrl+A, format as table - vba

Question

I have a 3000 rows by 50 columns dataset in Excel starting in A1.
I recorded and edited a macro that emulates the following: Ctrl+A, Format as table:
Dim koosrange As Range
Set koosrange = ActiveSheet.UsedRange
koosrange.Select
ActiveSheet.QueryTables("aspectsClean_1").Delete
ActiveSheet.QueryTables("aspectsClean").Delete
ActiveSheet.ListObjects.Add(xlSrcRange, koosrange, , xlNo).Name = _
"Table1"
Range("Table1[#All]").Select
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight1"
ActiveSheet.ListObjects("Table1").ShowTableStyleFirstColumn = True
The entire program consists of 3 parts:
Import data from *.txt
Concatenate item names to only fit in Col A, and move all other data left, to start in Col B
Format all data as table (so that it can be filtered, etc.)
When running the program, the following error occurs on ActiveSheet.ListObjects.Add(xlSrcRange, koosrange, , xlNo).Name = _
"Table1" (line 6 of the previous code excerpt):
Error: A table cannot overlap a range that contains a PivotTable report, query results, protected cells or another table

Answer 1

Further to my comment, if you used the recorder to record Import > From Text File then the method it would be using would be to add a querytable object connected to the text file, then refreshing it.
Depending on some of the circumstances - I am not fully familiar with the different objects at play in this situation - it is necessary to delete, if they were created, both the connection object and the querytable object.
E.g. a recording i did just now churned out:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;{snipped path}", Destination:=Range("$A$1"))
.Name = "new 2"
'+some other properties churned out removed here for conciseness
.Refresh BackgroundQuery:=False
End With
So, add just before the End With:
If Not ActiveWorkbook.Connections(.Name) Is Nothing Then
ActiveWorkbook.Connections(.Name).Delete
End If
.Delete
End With