Sort Data based on Criteria and CopyPaste to another worksheet

[HowieD]

Hi there,

I am having trouble sorting data based on a cell value and then copying that data to another worksheet. I have a list of information on Sheet1 that needs to be transferred to another worksheet. However, the only data I wish to have transferred is the data in the row with the value TRUE in Column U. I need this to copy to the next blank row on Sheet2. Both Sheet1 and Sheet2 have headers. I have attached a simplified version of my workbook. Any help is greatly appreciated. The end goal of this list is to create an archive.

[austin221871]

This will only do it for the first 500 rows if you do it for all it takes a wile to run

Sub filter()
Dim lr As Long

Sheets("Sheet1").Activate
ActiveSheet.Range("U2").AutoFilter Field:=21, Criteria1:="TRUE"

lr = Sheets("Sheet1").UsedRange.Rows.Count

Range("A1:U500").SpecialCells(xlCellTypeVisible).Select

Selection.Copy Sheets("Sheet2").Range("A1")

Range("A1").Select

Sheets("Sheet1").Range("U2").AutoFilter Field:=21

End Sub

[AB33]

Try the attached.

[HowieD]

Thank you both so much for the help. AB33 I ended up using your code it works perfectly!!