autofilterLocation Macro

[samlrun]

Low Level Issue

This code uses the autofilter method to copy data from one sheet to another. It is found in the Sorting_Macros module. It is much more efficient than methods used in the past. However, the conditions used here are limited to only two. It would be nice to have a third option for blank cells. This could probably be simply fixed with an if statement.

Worksheets(combo).Range(Cells(1, 1), Cells(Lnumrow, Lnumcol)).AutoFilter
Worksheets(combo).Range(Cells(1, 1), Cells(Lnumrow, Lnumcol)).AutoFilter Field:=rampcol, Criteria1:="<>NA", Operator:=xlAnd, Criteria2:="<>0"      ', Operator:=xlAnd, Criteria3:="<>" FLAGGED: this would help if it's blank but cant do it.
Range(Range(Range("A2"), Range("A2").End(xlDown)), Range(Range("A2"), Range("A2").End(xlDown)).End(xlToRight)).EntireRow.Delete
Range(Cells(1, 1), Cells(1, Lnumcol)).AutoFilter