Issue copying visible cells after auto filter

[Ianmacros]

Hi guys. I have really been struggling to figure out the issue here. The copy/paste works for the first part but not the second. Here's the code and I will explain the issue afterward:

Dim rgDel As Range
    Set rgDel = sh2.Range(Range("A2"), Range("A2").End(xlToRight).End(xlDown))
    Set rgDel = rgDel.Resize(rgDel.Rows.Count + 1, rgDel.Columns.Count).Offset(-1, 0)
        
    'Filter and copy email scores
    rgDel.AutoFilter _
    Field:=8, Criteria1:=strE1
    
     With rgDel
    .Resize(.Rows.Count + 1, .Columns.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    End With
           
    sh3.Range("A4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
     With rgDel
    .Resize(.Rows.Count + 1, .Columns.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    End With
    
    sh3.Range("A4").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
       
    'Filter and copy phone scores
    rgDel.AutoFilter _
    Field:=8, Criteria1:=strP1
    
    With rgDel
    .Resize(.Rows.Count + 1, .Columns.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    End With
       
    sh3.Range("I4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    With rgDel
    .Resize(.Rows.Count + 1, .Columns.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    End With
        
    sh3.Range("I4").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

NOTE: sh2 and sh3 are worksheets. strE1 and strP1 are filter criteria entered earlier with an inputbox.

The issue is that the SECOND copy/paste does not work. It does filter so only the phone scores are showing but cannot seem to get the visible cells to copy/paste. Instead, the FIRST copied cells for email are just copied again to the second range. Please help.

[JLGWhiz]

It is not working because your rgDel only applies to sheet2, you need to reset it for sheet 3 if you are going to use the same variable for a range. Also at a quick glance, it looks like you are resizing your rgDel multiple times. Looks odd, but you said it is copying correctly, so I guess it is OK. I did not test it.

[Ianmacros]

OK thank you for the idea! The weird fix, which ended up working is just inserting the copy code twice for the phone scores so that it looks like this:

'Filter and copy phone scores
    rgDel.AutoFilter _
    Field:=8, Criteria1:=strP1
    
    With rgDel
    .Resize(.Rows.Count + 1, .Columns.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    End With
    
    With rgDel
    .Resize(.Rows.Count + 1, .Columns.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    End With
       
    sh3.Range("I4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Is this unconventional fix related to what you mentioned? Thank you!

[JLGWhiz]

Not really, but if you got it to work the way you want, then it is a good fix. MACs are weird animals anyhow.