Issue with Copying from one sheet to another

Hello Elthznd901,

Just another option for you.

See if the code trimmed as follows works for you:-

Sub Button1_Click()

Application.ScreenUpdating = False

        Sheet2.Range("A3", Sheet2.Range("E" & Sheet2.Rows.Count).End(xlUp)).Clear
        
        On Error Resume Next
        
        With Sheet1.Range("C25", Sheet1.Range("C" & Sheet1.Rows.Count).End(xlUp))
                .AutoFilter 1, ">0"
                .Offset(1).Resize(, 5).SpecialCells(12).Copy Sheet2.[A3]
                .AutoFilter
        End With
        
Application.ScreenUpdating = True

End Sub

I've used the sheet codes rather than the sheet names in the code.

I hope that this helps.

Cheerio,
vcoolio.