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
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