Sütun aralıklarına kayıt

[Tamermaster]

Belirlediğim sütun aralıklarına kayıt yaptığım butonla combobox seçimine bağlı başka kayıtlarda yapmak istiyorum örnek kod:
Sub CommandButton1_Click()
Select Case Label2
Case Label2.Caption = "FATURA NO"
With Sayfa7
For Each erb In Sayfa7.Range("a2:a" & Range("a65536").End(3).Row)
If erb = ComboBox1 Then
Exit Sub
End If
Next erb
For Each erb In .Range("a2:a" & Range("a65536").End(3).Row)
If erb = ComboBox1 Then
erb.Offset(i, -1).Activate
erb.Offset(i, 0) = TextBox1
erb.Offset(i, 2) = TextBox2
erb.Offset(i, 3) = TextBox3
erb.Offset(i, 4) = TextBox4
erb.Offset(i, 5) = TextBox5
erb.Offset(i, 6) = TextBox6
erb.Offset(i, 7) = TextBox7
erb.Offset(i, 8) = TextBox8
erb.Offset(i, 9) = TextBox9
erb.Offset(i, 10) = TextBox10
erb.Offset(i, 11) = TextBox11
erb.Offset(i, 12) = TextBox12
erb.Offset(i, 13) = TextBox13
erb.Offset(i, 14) = TextBox14
erb.Offset(i, 16) = TextBox15
UserForm_Initialize
Exit For
Else
.Range("a65536").End(3).Offset(1, 0) = .Range("a65536").End(3) + 1
.Range("a65536").End(3).Offset(0, 1) = TextBox1.Value
.Range("a65536").End(3).Offset(0, 2) = TextBox2.Value
.Range("a65536").End(3).Offset(0, 3) = TextBox3.Value
.Range("a65536").End(3).Offset(0, 4) = TextBox4.Value
.Range("a65536").End(3).Offset(0, 5) = TextBox5.Value
.Range("a65536").End(3).Offset(0, 6) = TextBox6.Value
.Range("a65536").End(3).Offset(0, 7) = TextBox7.Value
.Range("a65536").End(3).Offset(0, 8) = TextBox8.Value
.Range("a65536").End(3).Offset(0, 9) = TextBox9.Value
.Range("a65536").End(3).Offset(0, 10) = TextBox10.Value
.Range("a65536").End(3).Offset(0, 11) = TextBox11.Value
.Range("a65536").End(3).Offset(0, 12) = TextBox12.Value
.Range("a65536").End(3).Offset(0, 13) = TextBox13.Value
.Range("a65536").End(3).Offset(0, 14) = TextBox14.Value
.Range("a65536").End(3).Offset(0, 16) = TextBox15.Value
UserForm_Initialize
Exit For
End If
Next erb
End With
Case Label2.Caption = "İlk Nakit Ödeme"
Dim bul As Range
For Each bul In Sayfa7.Range("f2:f" & Range("f65536").End(3).Row)
If bul.Value = Combobox2.Text Then

bul.Offset(0, 13) = TextBox1.Value
bul.Offset(0, 14) = TextBox2.Value
bul.Offset(0, 15) = TextBox3.Value
bul.Offset(0, 16) = TextBox4.Value
bul.Offset(0, 17) = TextBox5.Value
bul.Offset(0, 18) = TextBox6.Value
bul.Offset(0, 19) = TextBox7.Value
bul.Offset(0, 20) = TextBox8.Value
bul.Offset(0, 21) = TextBox9.Value
bul.Offset(0, 22) = TextBox10.Value
bul.Offset(0, 23) = TextBox11.Value
bul.Offset(0, 24) = TextBox12.Value
bul.Offset(0, 25) = TextBox13.Value
bul.Offset(0, 26) = TextBox14.Value

End If
Next bul
Case Label2.Caption = "İlk Banka Ödeme"

For Each bul In Sayfa7.Range("ah2:ah" & Range("ah65536").End(3).Row)
If bul.Value = ComboBox3.Text Then

bul.Offset(0, 13) = TextBox1.Value
bul.Offset(0, 14) = TextBox2.Value
bul.Offset(0, 15) = TextBox3.Value
bul.Offset(0, 16) = TextBox4.Value
bul.Offset(0, 17) = TextBox5.Value
bul.Offset(0, 18) = TextBox6.Value
bul.Offset(0, 19) = TextBox7.Value
bul.Offset(0, 20) = TextBox8.Value
bul.Offset(0, 21) = TextBox9.Value
bul.Offset(0, 22) = TextBox10.Value
bul.Offset(0, 23) = TextBox11.Value
bul.Offset(0, 24) = TextBox12.Value
bul.Offset(0, 25) = TextBox13.Value
bul.Offset(0, 26) = TextBox14.Value

End If
Next bul
End Select

End Sub
Ama böyle olunca kayıt hiç yapmıyor bakabilirseniz sevinirim