autofilter range copy visible cells only

[mssbass]

How do I modify my code to copy and paste visible cells only? Right now, it's pasting all 1,048,576 rows to the new worksheet:

With wssor
.Range("$A:$U").AutoFilter field:=20, Criteria1:="DME MSOC"
.Range("$A:$U").AutoFilter field:=21, Criteria1:="FALSE"
.Range("S:U").EntireColumn.Hidden = True
.AutoFilter.Range.Offset(1, 0).Resize(.Rows.Count - 1).Copy wsdp.Range("A2")
End With

 

[Fluff]

Just remove the Resize part of the copy line.

 

[mssbass]

Worked perfectly - thanks so much!

 

[Fluff]

You're welcome & thanks for the feedback.