Slow copy and paste

[D_Holmes]

Hi All,

I wrote this code and before it ran without too much delay, however now it takes an extreme amount of time to copy/paste from one sheet to another. Could someone please let me know how I can make it more fluid?

Here is the code:

Sub Filter_Content()

Application.ScreenUpdating = False

Worksheets("Filtered Data").Range("a2:R15000").ClearContents
Worksheets("Current Disaster Report").Select
Range("A1").Select

'paste HCH HCH 5TH NURSE
With Worksheets("Current Disaster Report")
   .Range("A1:R1").AutoFilter Field:=14, Criteria1:="HCH HCH 5TH NURSE"
   .AutoFilter.Range.Offset(0).Copy
    Worksheets("Filtered Data").Range("a1").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
End With

Worksheets("Dashboard").Select

Worksheets("Data Information").Visible = xlSheetVeryHidden
Worksheets("Filtered Data").Visible = xlSheetVeryHidden
Worksheets("Current Disaster Report").Visible = xlSheetVeryHidden

MsgBox "Content Filtered ^__^"

End Sub

There are 16 other filters I am copying and then pasting to the same sheet.

 

[Zot]

Try add
Application.Calculation = xlCalculateManual in the beginning like after Application.ScreenUpdating = False
At the end reset back to Application.Calculation = xlCalculationAutomatic

Note that if your program crashed midway, the calculation will stay at manual.

 

[D_Holmes]

Try add
Application.Calculation = xlCalculateManual in the beginning like after Application.ScreenUpdating = False
At the end reset back to Application.Calculation = xlCalculationAutomatic

Note that if your program crashed midway, the calculation will stay at manual.

Perfect! Worked like a charm. Thank you!