VBA Faster Way to copy filtered contents to a new sheet

[LNG2013]

Hello,

I have been told to many Select and copy and paste commands can slow down my code.

What would be a faster way of doing this? - It is copying the filtered results to a new Sheet called filtered.

Sub Filtered()
'
'~~~~ This macro adds the filtered sheet to begin the report process
'

Sheets.Add.Name = "Filtered"

    Sheets("Obj").Select
    Cells.Select
    Selection.Copy
    Sheets("Filtered").Select
    Cells.Select
    ActiveSheet.Paste
End Sub

 

[Fluff]

How about

Sheets("Obj").copy after:=sheets(sheets.count)
ActiveSheet.Name="Filtered"

 

[LNG2013]

That works thank you so much!

 

[Fluff]

Glad to help & thanks for the feedback

 

[LNG2013]

Hello,

Thank you again for the code above. I have experienced an unusual side effect though which it looks like instead of copying the filtered range to a new sheet name filtered, it copied everything and mad it filtered on the new sheet. This means it brought with it alot of data that is slowing down other parts of the report.
Is there a faster way to copy just the filtered contents of the sheet Obj to a new sheet called Filtered?

 

[Fluff]

Ok, how about

    Sheets.Add.Name = "Filtered"
    Sheets("Obj").AutoFilter.Range.Copy Sheets("Filtered").Range("A1")