VBA code converting cell to Table

[Evapar18]

I used this same code in another worksheet but with different ranges without issue. Now when I run the same code it causes the first cell under QTY to become a table. Any idea what would cause this?

I did find if I rem out " srcWS.Range("AD4:AD52").AutoFilter Field:=1, Criteria1:="<>" " the entire row becomes a table...??

https://www.screencast.com/t/dYE9lDjIKcMF

Private Sub CommandButton1_Click()'Unprotect a worksheet with a password
'Sheets("Pre-Quote").Unprotect Password:=""


'Sheets("Engine Options").EnableSelection = xlNoRestrictions


    Application.ScreenUpdating = False
    
    Dim srcWS As Worksheet, desWS As Worksheet
    
    Set srcWS = ThisWorkbook.Sheets("Engine Options")
     
    'Qty Filter
    srcWS.Range("AD4:AD52").AutoFilter Field:=1, Criteria1:="<>"
    
    'Criteria Filter
    srcWS.Range("Y4:AD52").AutoFilter Field:=1, Criteria1:="<>-"
    srcWS.Range("Y4:AD52").AutoFilter Field:=1, Criteria1:="<>-"
        
    'Quote WorkBook Path
    Set desWS = ThisWorkbook.Sheets("Pre-Quote")
    
    'Qty to Quote Workbook
    srcWS.Range("AD4:AD52").SpecialCells(xlCellTypeVisible).Copy
    desWS.Range("B10").PasteSpecial xlPasteValues
    
    'Part Number
    srcWS.Range("Z4:Z52").SpecialCells(xlCellTypeVisible).Copy
    desWS.Range("D10").PasteSpecial xlPasteValues
    
    'Description
    srcWS.Range("AA4:AA52").SpecialCells(xlCellTypeVisible).Copy
    desWS.Range("F10").PasteSpecial xlPasteValues
        
    'Cost
    srcWS.Range("AC4:AC52").SpecialCells(xlCellTypeVisible).Copy
    desWS.Range("T10").PasteSpecial xlPasteValues
    
    'srcWS.Range("AL7").AutoFilter
        
    Application.ScreenUpdating = True
    
   Call Copy_Paste
      
    'Worksheets("Engine Options").Activate
    
'Protect worksheet with a password
'ActiveSheet.Protect Password:=""


    'Sheet2.Protect Password:="", AllowFormattingCells:=True, AllowFormattingColumns:=False, _
    'AllowFormattingRows:=True, AllowSorting:=False, AllowFiltering:=False, UserInterfaceOnly:=True
        
    'Worksheets("Pre-Quote").Activate
        
    'Sheet4.Protect Password:="", AllowFormattingCells:=True, AllowFormattingColumns:=False, _
    'AllowFormattingRows:=True, AllowSorting:=False, AllowFiltering:=False, UserInterfaceOnly:=True
    


End Sub

Lost and confused?