ilgili kodu alttaki gibi değiştiriseniz gereksiz boş satırlar alınmaz ve sütun başlıklarda gelir.
Ayrıca resimdeki gibi 7.satırdan itibaren silin.Tabloya veri eklendikçe otomatik olarak formüller vs.. de eklenir abey.
Masraf listesi yerine Tablo1 den veri almak en mantıklısı dinamik olarak.

Private Sub UserForm_Initialize()

    With Me.ListBox1

        .ColumnCount = 7

        .ColumnHeads = True

        .RowSource = "Tablo1"

        .ColumnWidths = "30;70;70;70;240;170;70"

    End With

    txt_MasrafTarihi = Format(Date, "dd.mm.yyyy")

End Sub

sonuç olarak listboxtta alttaki gibi başlıklı listelenir.