Ошибка в коде VBA - Type mismatch

If (10 ^ (JOEconc - FAMconc)) * Range("E72").Value * kA >= Range("E82").Value And (10 ^ (JOEconc - FAMconc)) * Range("E72").Value * kA <= Range("E83").Value Then
                Range("R" + Mid$(Str$(i + 58), 2)).Value = (10 ^ (JOEconc - FAMconc)) * Range("E72").Value * kA
            Else
               If (10 ^ (JOEconc - FAMconc)) * Range("E72").Value * kA < Range("E82").Value Then Range("R" + Mid$(Str$(i + 58), 2)).Value = "ìåíåå" + Str$((Range("E82").Value))
               If (10 ^ (JOEconc - FAMconc)) * Range("E72").Value * kA > Range("E83").Value Then Range("R" + Mid$(Str$(i + 58), 2)).Value = "áîëåå" + Str$((Range("E83").Value))
            End If
            
            If FAM <= Range("E81").Value And FAM > 0 Then Range("S" + Mid$(Str$(i + 58), 2)).Value = "Ok" Else Range("S" + Mid$(Str$(i + 58), 2)).Value = "Ñáîé ÂÊÎ!"
            
           ' If UCase$(ID) = "PKO-1" Or UCase$(ID) = "PKO1" Or UCase$(ID) = "ÏÊÎ-1" Or UCase$(ID) = "ÏÊÎ1" Or UCase$(ID) = "PK1" Or UCase$(ID) = "ÏÊ1" Or UCase$(ID) = "PK-1" Or UCase$(ID) = "ÏÊ1" Then
           '     If (10 ^ (JOEconc - FAMconc)) * Range("E72").Value >= Range("D75").Value And (10 ^ (JOEconc - FAMconc)) * Range("E72").Value < Range("F75").Value Then Range("S" + Mid$(Str$(i + 58), 2)).Value = "ÏÊÎ1 Ok" Else Range("S" + Mid$(Str$(i + 58), 2)).Value = "ÏÊÎ1 Ñáîé!"
           ' End If
           ' If UCase$(ID) = "PKO-2" Or UCase$(ID) = "PKO2" Or UCase$(ID) = "ÏÊÎ-2" Or UCase$(ID) = "ÏÊÎ2" Or UCase$(ID) = "PK2" Or UCase$(ID) = "ÏÊ2" Or UCase$(ID) = "PK-2" Or UCase$(ID) = "ÏÊ2" Then
           '     If (10 ^ (JOEconc - FAMconc)) * Range("E72").Value >= Range("D76").Value And (10 ^ (JOEconc - FAMconc)) * Range("E72").Value < Range("F76").Value Then Range("S" + Mid$(Str$(i + 58), 2)).Value = "ÏÊÎ2 Ok" Else Range("S" + Mid$(Str$(i + 58), 2)).Value = "ÏÊÎ2 Ñáîé!"
           ' End If
            
            End If