Automation Error: Object has disconnected from its client message Copy and Paste

[Phrazel]

Hello -
I have created a basic copy and paste macro (VBA Excel 2010) that was working fine, but when I went to expand the amount of sheets I am copying to, I started receiving an Automation Error: Object has disconnected from its client message:
I run this code over about 30 times with "Daffy, Duck" the only thing changing, almost at the end I get the error. Any help is greatly appreciated.
Here is the code:

Sub Duck()
'
' Macro1 Macro
'

'

    Application.CutCopyMode = False
    Application.ScreenUpdating = False
    Sheets("Pivot Data Sheet").Select
    
    ActiveSheet.Range("$A$1:$BD$184").AutoFilter Field:=12, Criteria1:="Fail"
    ActiveSheet.Range("$A$1:$BD$184").AutoFilter Field:=16, Criteria1:="Daffy, Duck"
    
    ActiveSheet.Range("A2:BD50000").Copy Destination:=Sheets("Daffy, Duck").Range("A2")
    
    ManagerSortedData = Empty
    Application.CutCopyMode = False
    Sheets("Pivot Data Sheet").Select
    ActiveSheet.ShowAllData
    

End Sub

 

[SkipVought]

Hi,

Your code errors on ManagerSortedData = Empty

Other than that, your code ran sucessfully.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[Phrazel]

Thank you I removed that line - I no longer get the error but the CPU and Memory spikes and it locks up.
Is there any other way to clear the data from memory before moving on to the next one?

 

[SkipVought]

You most likely COPY unnecessary cells.

Sub Duck()
'
' Macro1 Macro
'

'

    Application.CutCopyMode = False
    Application.ScreenUpdating = False
    
    With Sheets("Pivot Data Sheet")
        With .UsedRange
            .AutoFilter Field:=12, Criteria1:="Fail"
        
            .Copy Destination:=Sheets("Daffy, Duck").Range("A2")
        End With
    '    ManagerSortedData = Empty
        .Select
        .ShowAllData
    End With
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[JackTheC]

Question: Are you using Windows 10? I got the same error in IE automation on Windows 10. Not on Win8,7,Vista or XP. Only in Win10.

 

[Phrazel]

Thank you very much!
It works great now

 

[SkipVought]

So tell us what you did to achieve success.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]