Max functionu ile yaptım sadece id kısmını.Birde sıralatma kodu ekledim.
Else
Worksheets("Ana Sayfa").Cells(SonSatir, 1) = WorksheetFunction.Max(Worksheets("Ana Sayfa").Range("A2:A" & Rows.Count)) + 1
Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi.Value
Worksheets("Ana Sayfa").Cells(SonSatir, 3) = Com_Firma.Value
Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo.Value
Worksheets("Ana Sayfa").Cells(SonSatir, 5) = Com_MasrafTuru.Value
Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Acýklama.Value
Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_Tutar)
Worksheets("Ana Sayfa").Range("A2").Sort Worksheets("Ana Sayfa").Range("A2"), xlDescending, , , , , , xlNo
End If