Aleyküm selam.Select Case Range("E" & Target.Row) ile end select arasındaki gibi olacak lakin ? yerler nasıl hesaplanacak bilmiyorum

On Error Resume Next

If Not Intersect(Target, [C420]) Is Nothing Then

sat = Target.Row

Cells(sat, "E") = Day(Cells(sat, "D")) + 30 * Month(Cells(sat, "D")) + 360 * Year(Cells(sat, "D")) - (Day(Cells(sat, "C")) + 30 * Month(Cells(sat, "C")) + 360 * Year(Cells(sat, "C")))

Cells(sat, "F") = Int(Cells(sat, "E") / 360)

Cells(sat, "G") = Int((Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360) / 30)

Cells(sat, "H") = Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360 - Int((Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360) / 30) * 30



Select Case Range("E" & sat)

    Case Is < 720

        Range("i" & sat) = 720

        Range("j" & sat) = "?"

        Range("k" & sat) = "?"

        Range("L" & sat) = "?"

    Case Is >= 720

        Range("i" & sat) = "?"

        Range("j" & sat) = "?"

        Range("k" & sat) = "?"

        Range("L" & sat) = "?"

End Select

End If