Reports

You've not specified if there is just autofilter or excel tables which are filtered. So let's try to cover both cases

Sub Update()

  ' Open the source workbook
Set sourceWorkbook = Workbooks.Open(Filename:="D:\Desktop\Stop Work.xlsm")

with sourceWorkbook.Worksheets("Sheet1")

  .AutoFilterMode = False
  Dim lo As Long
  For lo = 1 To .ListObjects.Count
    .ListObjects(lo).ShowAutoFilter = False
  Next lo

  .Cells.Copy

end with

' Open the destination workbook
'....

BTW. The same question was crossposted at https://www.mrexcel.com/board/threads/add-a-rule-to-the-vba-to-remove-filters.1268355/

79328578