Cut and Paste Filtered Rows

[nniedzielski]

I have some code that is filtered on a column, copying the visible rows, going to a new sheet, and pasting the code down.
It works, but its incredibly slow, is there a faster way to generate this block of code?

    Selection.AutoFilter
    ActiveSheet.Range("A:J").AutoFilter Field:=3, Criteria1:="Empty"
    Selection.SpecialCells(xlCellTypeVisible).Copy
    Sheets("Empty").Select
    Cells.Select
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Cells.Select
    Cells.EntireColumn.AutoFit

 

[Fluff]

How about

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    With ActiveSheet
        .Range("A:J").AutoFilter Field:=3, Criteria1:="Empty"
        .AutoFilter.Range.Copy Sheets("Empty").Range("A1")
    End With
    Sheets("Empty").UsedRange.EntireColumn.AutoFit

    Application.Calculation = xlCalculationAutomatic

 

[nniedzielski]

Awesome, took my code from 21 seconds to .73 seconds. Thank you much!

 

[Fluff]

You're welcome & thanks for the feedback