VBA code to exclude filtered data from multiple columns and paste remaining data into another worksheet

[WWII_Buff]

Macro Recorder gave me an error that I selected too many criteria in my attempt, so I am stumped yet again.

I need help in writing a macro that applies filters on Row 4 on the "Master" sheet and exclude the following items below

Sub Test8()

    Rows("4:4").Select
    Selection.AutoFilter
  
  ActiveSheet.Range("$A$4:$BB$15334").AutoFilter Field:=2, Criteria1:=Array( _
        "0", "99999", "TOTAL ENERGY", "TOTAL EXPENSE", "TOTAL LABOR", _
        "TOTAL LABOR & EXPENSE", "TOTAL START UP", "TOTAL VOLUME", "TOTAL WASTE"), _
        Operator:=xlFilterValues
   
  ActiveSheet.Range("$A$4:$BB$15334").AutoFilter Field:=7, Criteria1:="=G&A" _
        , Operator:=xlOr, Criteria2:="="
   
  ActiveSheet.Range("$A$4:$BB$15334").AutoFilter Field:=52, Criteria1:="-"
End Sub

With the remaining data, copy (starting from Row 5) Columns A, B and AM:AY and paste to the "UPLOAD TEMPLATE" worksheet that is already created starting in A6.

 

[Fluff]

Is row 4 your header row & does it have values in every column from A to BB?
Also what errors are you getting & on what line of code.

 

[WWII_Buff]

@Fluff Thank you thank you thank you!

Yes, Row 4 are headers and they do have values from A to BB

They error code I received said I selected too many items here.

  ActiveSheet.Range("$A$4:$BB$15334").AutoFilter Field:=52, Criteria1:="-"

which was an attempt of grabbing non-blank rows.

 

[Fluff]

What if you put that line 1st, do you still get the error?

 

[WWII_Buff]

I will give that a shot!

Here is what I have so far - but I get an error at the 1st ActiveSheet.Range:

Sub Upload()


    Dim src As Worksheet
    Dim trg As Worksheet
    Dim LastRow As Long




    Set src = ThisWorkbook.Worksheets("MASTER")
    Set trg = ThisWorkbook.Worksheets("UPLOAD TEMPLATE")
    
    Sheets("MASTER").Select
    Rows("4:4").Select
    Selection.AutoFilter
    
    ActiveSheet.Range("$A4:BB" & LastRow).AutoFilter Field:=2, Criteria1:=Array( _
        "<>0", "<>99999", "<>*TOTAL*"), _
        Operator:=xlFilterValues
        
    ActiveSheet.Range("$A4:BB" & LastRow).AutoFilter Field:=7, Criteria1:="<>G&A" _
        , Operator:=xlOr, Criteria2:="<> "
        
    ActiveSheet.Range("$A4:BB" & LastRow).AutoFilter Field:=52, Criteria1:="<>-"


    LastRow = src.Cells(Rows.Count, 1).End(xlUp).Row


    src.Range("A5:A" & LastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=trg.Range("A6")
    src.Range("B5:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=trg.Range("B6")
    src.Range("AM5:AY" & LastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=trg.Range("C6")


End Sub

 

[WWII_Buff]

What if you put that line 1st, do you still get the error?

It did - Error was too many line continuations.

 

[Fluff]

I will give that a shot!

Here is what I have so far - but I get an error at the 1st ActiveSheet.Range:

That's because LastRow does not have a value.
Also that code won't work as you can only filter on 2 <> values.

If on col AZ you want to get all non blanks then try

Criteria1:="<>"

 

[WWII_Buff]

OK - I'll try that. Be right back!