Use special cell method.

ActiveSheet.Cells.SpecialCells(xlCellTypeVisible). Copy

and

ActiveSheet.Cells.SpecialCells(xlCellTypeVisible). entirerow.delete



"Eric @ BP-EVV" wrote:

I have the following statements in a VBA procedu

rcount9 = Application.WorksheetFunction.CountA(Worksheets("w orking
data").Range("A1:A65536"))
Worksheets("working data").Range("A1:K" & rcount9).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("K1:K2"), _
copytorange:=Worksheets("Items not in F4106").Range("A1:K" & rcount9)

Is there an easy way to then take the data that this advanced filter just
copied to the "Items not in F4106" workbook and delete them from their
original location in the "working data" workbook ? Both workbooks are in the
same Excel spreadsheet file.

Thanks !