Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_Tutar)
Yukarıdaki kodun altına attaki kodu eklerseniz Ay olarak ekler.
Bence formülleride böyle yaparsanız dahada hızlanır dosya.
Worksheets("Ana Sayfa").Cells(SonSatir, 8) = Month(txt_MasrafTarihi.Value)
Tabii else satırının üzerinede eklenecek.