Sonraki Satıra id Ekleme

[esnekplastik]

Sonraki satıra id eklenmiyor kodda hata var mı?

Sorunu çözdüm sorun sonsatir yazanı düzgün yazmamışım.

Dim OdenenSonSatir As Variant

Private Sub CommandButton1_Click()


SonSatir = WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("H:H")) + 1
MsgBox OdenenSonSatir

  If OdenenSonSatir = 5 Then

    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 8) = 1
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 9) = OdemeSekliYaz.Value
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 10) = OdenenYaz.Value
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 11) = OdenenTarihYaz.Value
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 12) = OdenenAciklamaYaz.Value

  Else

    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 8) = Worksheets("Elektrikçiler").Cells(OdenenSonSatir - 1, 1) + 1
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 9) = OdemeSekliYaz.Value
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 10) = OdenenYaz.Value
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 11) = OdenenTarihYaz.Value
    Worksheets("Elektrikçiler").Cells(OdenenSonSatir, 12) = OdenenAciklamaYaz.Value
 
  End If


End Sub