run time error 9 hatası

[serdarbarak]

Arkadaşlar iki farklı userformdan excele veri aktarıyorum (gerçi bunuda beceremedim ve yardımıma sizler yetiştiniz teşekkür ederim) aşağıdaki makroda sorun yok
Private Sub CommandButton1_Click()
Sheets("Memur İzin").Select
Range("b12").Value = TextBox1.Text
Range("b13").Value = TextBox2.Text
Range("b14").Value = DTPicker1.Value
Range("b15").Value = DTPicker2.Value
Range("b16").Value = TextBox3.Text
Sheets("Memur İzin").Select
sat = Sheets("Rapor Kayıt").Cells(65536, "B").End(xlUp).Row + 1
With Sheets("Rapor Kayıt")
.Cells(sat, "A").Value = Range("b11").Value
.Cells(sat, "B").Value = Range("b12").Value
.Cells(sat, "C").Value = Range("b13").Value
.Cells(sat, "D").Value = Range("b14").Value
.Cells(sat, "E").Value = Range("b15").Value
.Cells(sat, "F").Value = Range("b16").Value
End With
sat = Sheets(Sheets("Memur Ana Sayfa").Range("A1").Value).Cells(100, "T").End(xlUp).Row + 1
With Sheets(Sheets("Memur Ana Sayfa").Range("A1").Value)
.Cells(sat, "T").Value = Range("b12").Value
.Cells(sat, "U").Value = Range("b13").Value
.Cells(sat, "V").Value = Range("b14").Value
.Cells(sat, "W").Value = Range("b15").Value
.Cells(sat, "X").Value = Range("b16").Value
End With
son:
MsgBox "Kayıt Akatarıldı..!!", vbOKOnly + vbInformation, "KAYIT"
Sheets("Memur İzin").Select
End Sub

Ama Aynı Makroyu aynı kitap içinde başka bir userformdan başka bi excell sayfasına aktarırken hata veriyor
Hata Mesajı (run time error 9 )ve işaretli kod satırında sıkıntı var ama bir türlü çözemedim lütfen yardım ediniz

Private Sub CommandButton1_Click()
Sheets("İşçi İzin").Select
Range("b2").Value = TextBox1.Text
Range("b3").Value = TextBox2.Text
Range("b4").Value = DTPicker1.Value
Range("b5").Value = DTPicker2.Value
Range("b6").Value = TextBox3.Text
Sheets("İşçi İzin").Select
sat = Sheets("İşçi Rapor Kayıt").Cells(65536, "B").End(xlUp).Row + 1 (debug dediğimde bu satırda hata gösteriyo)
With Sheets("İşçi Rapor Kayıt")
.Cells(sat, "A").Value = Range("b1").Value
.Cells(sat, "B").Value = Range("b2").Value
.Cells(sat, "C").Value = Range("b3").Value
.Cells(sat, "D").Value = Range("b4").Value
.Cells(sat, "E").Value = Range("b5").Value
.Cells(sat, "F").Value = Range("b6").Value
End With
sat = Sheets(Sheets("İşçi Ana Sayfa").Range("A1").Value).Cells(100, "T").End(xlUp).Row + 1
With Sheets(Sheets("İşçi Ana Sayfa").Range("A1").Value)
.Cells(sat, "B").Value = Range("b2").Value
.Cells(sat, "C").Value = Range("b3").Value
.Cells(sat, "D").Value = Range("b4").Value
.Cells(sat, "E").Value = Range("b5").Value
.Cells(sat, "F").Value = Range("b6").Value
End With
son:
MsgBox "Kayıt Akatarıldı..!!", vbOKOnly + vbInformation, "KAYIT"
Sheets("İşçi İzin").Select
End Sub

 

[Mahmut Kök]

...
Range("b12").Value = TextBox1.Text
Range("b13").Value = TextBox2.Text
Range("b14").Value = DTPicker1.Value
Range("b15").Value = DTPicker2.Value
Range("b16").Value = TextBox3.Text
...

Yukarıdaki nesneler her iki formunuzda da var mı?