Çözüldü Yapay zeka - vba kodu çalışmıyor eksiği nedir acaba

Sub Hesapla()
'F hücresindeki değere göre S hücresindeki değeri hesaplayıp T hücresine yazan bir makro
Dim deger As String 'F hücresindeki değeri tutacak bir değişken
deger = Range("F3").Value 'F3 hücresindeki değeri değişkene atadık
If deger = "" Then 'Eğer F3 hücresi boşsa
Range("T3").Value = "" 'T3 hücresini de boş bırak
ElseIf deger = "iplik" Or deger = "örme kumaş" Or deger = "örme boyalı kumaş" Then 'Eğer F3 hücresi iplik, örme kumaş veya örme boyalı kumaşsa
Range("T3").Value = Range("S3").Value * 10 / 100 'S1 hücresinin değerini 10 ile çarp ve 100'e böl ve T3 hücresine yaz
ElseIf deger = "gider" Or deger = "Kumaş boyası" Or deger = "Fason işçilik" Or deger = "Kimyasal" Then 'Eğer F3 hücresi gider, Kumaş boyası, Fason işçilik veya Kimyasal ise
Range("T3").Value = Range("S3").Value * 20 / 100 'S3 hücresinin değerini 20 ile çarp ve 100'e böl ve T3 hücresine yaz
Else 'Eğer F3 hücresi başka bir şeyse
MsgBox "Geçersiz değer!" 'Bir mesaj kutusu göster ve uyar
End If
End Sub

yukarıda yazılı olan kodu yapay zekaya yazdırdım fakat çalışmıyor hata da vermiyor eksiğini bulabilirmiyiz.

F hücresindeki değişebilen veriye göre S hücresindeki veriyi 10 ile çarpıp 100 e bölüp T hücresine sonucu yazacak .
F hücresindeki değişebilen veriye göre S hücresindeki veriyi 20 ile çarpıp 100 e bölüp T hücresine sonucu yazacak .
F hücresi bo ise de T hücresi boş kalacak ""