Dim aylar As Variant
aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
Application.AddCustomList ListArray:=aylar
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=ws.Range("K2:K" & lastRow), Order:=xlAscending...