kayıt makrosunda sorun

[cakır2]

merhaba
ekteki dosyada kayıt makrosu verileri aynı yere kayıt ediyor?

hata nedir nasıl çözebiliriz?
teşekkürler

dosya eklenemiyor sürekli hata veriyor . hangi linke yükleyebiliriz.?

kodlar
Private Sub CommandButton3_Click()
satir = s1.[a65536].End(3).Row + 1
Sheets("satıs sayfası").Range("b8") = TextBox1
Sheets("satıs sayfası").Range("c8") = TextBox2
Sheets("satıs sayfası").Range("d8") = TextBox3
Sheets("satıs sayfası").Range("e8") = TextBox4
Sheets("satıs sayfası").Range("f8") = TextBox5
Sheets("satıs sayfası").Range("g8") = TextBox6
Sheets("satıs sayfası").Range("h8") = TextBox7
Sheets("satıs sayfası").Range("b8") = TextBox8
Sheets("satıs sayfası").Range("b8") = TextBox9
Sheets("satıs sayfası").Range("b8") = TextBox10
Sheets("satıs sayfası").Range("b8") = TextBox11
Sheets("satıs sayfası").Range("b8") = TextBox12
Sheets("satıs sayfası").Range("b8") = TextBox13
Sheets("satıs sayfası").Range("b8") = TextBox14
Sheets("satıs sayfası").Range("b8") = TextBox15
Sheets("satıs sayfası").Range("b8") = TextBox16
Sheets("satıs sayfası").Range("b8") = TextBox17
Sheets("satıs sayfası").Range("b8") = TextBox18
Sheets("satıs sayfası").Range("b8") = TextBox19
Sheets("satıs sayfası").Range("b8") = TextBox20
Sheets("satıs sayfası").Range("b8") = TextBox21
Sheets("satıs sayfası").Range("b8") = TextBox22
Sheets("satıs sayfası").Range("b8") = TextBox23
Sheets("satıs sayfası").Range("b8") = TextBox24
Sheets("satıs sayfası").Range("b8") = TextBox25
Sheets("satıs sayfası").Range("b8") = TextBox26
Sheets("satıs sayfası").Range("b8") = TextBox27
Sheets("satıs sayfası").Range("b8") = TextBox28
Sheets("satıs sayfası").Range("b8") = TextBox29
Sheets("satıs sayfası").Range("b8") = TextBox30



Sheets("tahsilat sayfası").Range("b9") = TextBox1


End Sub

 

[Orion1]

merhaba
ekteki dosyada kayıt makrosu verileri aynı yere kayıt ediyor?

hata nedir nasıl çözebiliriz?
teşekkürler

ekte dosya yok ki