Yada alttaki gibi kodu değiştirebilirsiniz.
Kayıt ekleme çalışınca il satırn altına satır eklenir ve herzaman 3.satırdaki verinin bir fazlası gelir İd olarak.
Kısaca Herzaman 2.satıra eklenir.Bunu uygularsanız ilk önce büyükten küçüğe sıralamanız gerekecek.

Private Sub btn_KayitEkle_Click()

If txt_MasrafTarihi <> "" And Com_Firma <> "" And txt_BelgeNo <> "" And Com_MasrafTuru <> "" And txt_Tutar <> "" Then

    Worksheets("Ana Sayfa").Range("A2").ListObject.ListRows.Add (1)

    Worksheets("Ana Sayfa").Range("A3:H3").Copy 'ilk satirin rengini almamasi icin eklendi

    Worksheets("Ana Sayfa").Range("A2:H2").PasteSpecial Paste:=xlPasteFormats 'ilk satirin rengini almamasi icin eklendi

    Application.CutCopyMode = False

    Worksheets("Ana Sayfa").Cells(2, 1) = Worksheets("Ana Sayfa").Cells(3, 1).Value + 1

    Worksheets("Ana Sayfa").Cells(2, 2) = txt_MasrafTarihi.Value

    Worksheets("Ana Sayfa").Cells(2, 3) = Com_Firma.Value

    Worksheets("Ana Sayfa").Cells(2, 4) = txt_BelgeNo.Value

    Worksheets("Ana Sayfa").Cells(2, 5) = Com_MasrafTuru.Value

    Worksheets("Ana Sayfa").Cells(2, 6) = txt_Acýklama.Value

    Worksheets("Ana Sayfa").Cells(2, 7) = CDbl(txt_Tutar)

Else

    MsgBox "Giriþ Alanlarýnýn Tümünü Doldurunuz", , "Masraf Giriþ Formu"

End If

Com_Firma.Value = ""

Com_MasrafTuru.Value = ""

txt_Acýklama.Value = ""

txt_BelgeNo.Value = ""

txt_MasrafTarihi.Value = ""

txt_Tutar.Value = ""

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

Com_Firma.SetFocus

End Sub