VBA cut from sheet 1 with multiple criteria onsheet 2,paste to next blank row sheet3

Hi,

Why can't you simply use Data Filter Advanced (with a criteria range) to filter your data and then if you want to delete it use the SpecialCells(xlCellTypeVisible) syntax to delete the rows, or if copying just copy the filtered rows to the relevant sheet. This can be achieved with a couple of lines of code, e.g (untested)

Range("MyRange").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("MyCopyLocation"), CriteriaRange:=Range("MyCriteria")
Range("MyRange").CurrentRegion.Offset(1,0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Hi,

Where would you put what? You're deleting cells so presumably don't need to put them anywhere. If you're copying the rows somewhere then use a Copy and PasteSpecial syntax.

You'll need to build a unique list of criteria values, then just wrap the code I gave you inside a For..Next loop which first moves down the list of values and copies each one to the relevant criteria cell.

Regards