VBA, "IF" Fehlermeldung

Hallo Excel Profis,
ich habe ein Makro geschrieben, welches mir Daten von Sheet "Hz2" nach Sheet "Depot" kopieren soll,- wenn in Zelle "Cy2" (eine Formel) nicht "#DIV/0!" ausgegeben wird.

Sub nach_Depot()
    If Worksheets("Hz2").Range("CY2").Value > CVErr(xlErrDiv0) Then
       
        Application.ScreenUpdating = False
        ENDE_Depot = Sheets("Depot").Cells(Rows.count, 8).End(xlUp).Row + 1
        Worksheets("Hz2").Range("AI2:DB2").Copy
        Worksheets("Depot").Range("A" & ENDE_Depot).PasteSpecial xlPasteValues
        Worksheets("Depot").Range("A" & ENDE_Depot).PasteSpecial xlFormats
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
        
    End If
End Sub