düzenleme ve silme işlemi

[Userform]

merhaba abilerim bir sorum olacaktı düzenle dediğimde caride düzenleme yapıyor ama genelde en üstte alan kaydı düzenliyor fiş numarasına ait her iki tarfdada yani carinin içinde ve genelde yer alan fiş numarasına ait veriyide düzenlemesini istiyorum birde silme işlemi yaptıgımda tüm satırı siliyor ben sadece j sutubnuna kadar silme işlemini yapmasını istiyorum çünkü j den sonra ödeme bilgileri yer alıyor bunları nasıl yapabilirim
düzenle kodları burda
Private Sub CommandButton5_Click()
'-----------Ürün Kayıt Sayfası Düzenle İşlemi-------------

Dim x As Long
Dim y As Long

txtad = ActiveSheet.Range("C2")

x = Txtfis.Value
Range("b18:b10000").Find(x).Select
y = ActiveCell.Row






'Sheets("GENEL").Range("a" & y).Value = Txtfis.Value
Sheets("GENEL").Range("B" & y).Value = CDate(txttarih.Value)
Sheets("GENEL").Range("C" & y).Value = txtad.Value
Sheets("GENEL").Range("D" & y).Value = ComboBox1.Value
Sheets("GENEL").Range("E" & y).Value = txtplaka.Value
Sheets("GENEL").Range("F" & y).Value = txtnakliye.Value
Sheets("GENEL").Range("G" & y).Value = CDate(txtodeme.Value)
Sheets("GENEL").Range("H" & y).Value = txtfiyat.Value
Sheets("GENEL").Range("I" & y).Value = txtkg.Value





'ActiveSheet.Range("b" & y) = Txtfis.Value
ActiveSheet.Range("C" & y) = CDate(txttarih.Value)
ActiveSheet.Range("D" & y) = ComboBox1.Value
ActiveSheet.Range("E" & y) = txtplaka.Value
ActiveSheet.Range("F" & y) = txtnakliye.Value
ActiveSheet.Range("G" & y) = CDate(txtodeme.Value)
ActiveSheet.Range("H" & y) = txtfiyat.Value
ActiveSheet.Range("I" & y) = txtkg.Value

Txtfis.Value = ""
ComboBox1.Value = ""
txtplaka.Value = ""
txtnakliye.Value = ""
txtfiyat.Value = ""
txtkg.Value = ""
txttarih.Value = ""
txtodeme.Value = ""




End Sub