Excel VBA fejl hvis manglende 0 i celle

Hejsa,

Jeg har et problem med denne VBA, hvis der ingen værdi er i cellen W eller X
Det er der hvor den dividerer med værdien i celle K
Værdien af cellerne W og X kommer med disse formler.
=HVIS(($H31/(-$Y31+1))+($J31/(-$AA31+1))=0;"";($H31/(-$Y31+1))+($J31/(-$AA31+1)))

=HVIS(($K31/(-$AB31+1))+($L31/(-$AC31+1))+($M31/(-$AD31+1))=0;"";($K31/(-$AB31+1))+($L31/(-$AC31+1))+($M31/(-$AD31+1)))

Jeg kan se at hvis jeg bare skriver 0 i cellen, ved at overskrive formlen, så kører VBA koden fint.
Hvordan løser jeg det enten i celle koden eller VBA koden?

If ws1.Range("B" & i).Value = "JA" Then
            ws3.Cells(LR2, "A").Value = ws1.Cells(i, "A").Value
            ws3.Cells(LR2, "A").BorderAround xlContinuous
            ws3.Cells(LR2, "A").Font.Size = 12
            ws2.Cells(LR2, "A").Font.FontStyle = "Calibri"
            ws3.Cells(LR2, "B").Value = ws1.Cells(i, "D").Value
            ws3.Cells(LR2, "B").BorderAround xlContinuous
            ws3.Cells(LR2, "B").Font.Size = 12
            ws3.Cells(LR2, "B").Font.FontStyle = "Calibri"
            ws3.Cells(LR2, "C").Value = ws1.Cells(i, "W").Value / ws1.Cells(3, "K") ' Omregner DKK til €
            ws3.Cells(LR2, "C").BorderAround xlContinuous
            ws3.Cells(LR2, "C").Font.Size = 12
            ws3.Cells(LR2, "C").Font.FontStyle = "Calibri"
            ws3.Cells(LR2, "D").Value = ws1.Cells(i, "X").Value / ws1.Cells(3, "K") ' Omregner DKK til €
            ws3.Cells(LR2, "D").BorderAround xlContinuous
            ws3.Cells(LR2, "D").Font.Size = 12
            ws3.Cells(LR2, "D").Font.FontStyle = "Calibri"
           
        LR2 = LR2 + 1
       
        End If