Autofilter for multiple sheets which may/may not have the data

[abschy]

Hi all

Ive been having some errors with this part of my code in bold.

as i have this code run for 4 different sheets, each sheet will come back with different data, some sheets even with no data.

this code works fine on 1 sheet, and the rest keeps getting stuck at the bolded part even though the sheet has the data.

would really appreciate any help!!

Thank you!!

  ' get project name
   Worksheets("Find Project").Range("F8").Copy
    
     'filter projects
   Sheets("OPEX_OTHERS_DATA").Select
[B]   ActiveSheet.ListObjects("OPEX_OTHERS").Range.AutoFilter Field:=3, Criteria1 _[/B]
[B]        :=Sheets("Find Project").Range("F8")[/B]

    ' copy data without headers
    Range("OPEX_OTHERS[#All]").Offset(1, 0).Copy
    
    
    'paste data in project data sheet
    Sheets("Project Data").Activate
    Cells(1, 1).PasteSpecial xlPasteValues
    
    'unfilter data
    Worksheets("OPEX_OTHERS_DATA").Select
    Worksheets("OPEX_OTHERS_DATA").ShowAllData

 

[DanteAmor]

What does the error message say?
I tested the code and it works for me in both ways with data in the table or without data.