en basitinden Debug.Print "-" & metin & "-" kodunu ekleyip denediğinizde sonuçlar aşağıdaki gibi çıkacaktır

• - ay-
  
• - AY-
  
• - GÜN-
  
• - AY-
  
• - AY-
  
• - AY-
  
• - AY-
  
• - AY-
  

göreceğiniz gibi tüm metin değerlerinin başında boşluk var
boşluk olduğu için 2 ifade bir birinden farklı algılanıp işlem yapmıyor
2. hatanız vba sayfasında Excel için ay ve Ay farklı değerlerdir yani Vba büyük/küçük harfe duyarlıdır
özellikle i/ı başınızı çok ağrıtır
harf duyarlılığının önüne geçmek için genelde kodun çalıştığı modülün en başına Option Compare Text eklemek yeterlidir ama dediğim gibi I ile i İngilizcede aynı sayıldığından başınız yine ağrır
o nedenle karşılaştırma yaparken ben genelde worksheetfunction.Proper(ifade) kullanırım 
emin değilim ama sanki worksheetfunction fonksiyonları Excel sayfasında işlem yapıyormuş gibi Türkçe kaynaklı sorunları bertaraf ediyor 

3. hatanızsa
Cells(i, 13).Value yerine Cells(i, 13).Valuıe  yazmanız 
Value ifadesini yanlış yazmışsınız

berduş hocam çok teşekkür ederim uyarılar için, ben mozuer hocamın önerdiği kod üzerinden gittim işimi gördü çok teşekkürler