Çok teşekkürler Hocam ellerinize sağlık.

Hocam kodları aşağıdaki şekilde değiştirdim. Değişiklikleri doğru yapıyor. Ancak şöyle bir sorun var Rakamları metin olarak mı aktarıyor herhalde değişen rakamlar toplamlarda dahil olmuyor.

MsgBox "KAYITLAR DEĞİŞTİRİLMİŞTİR." 'InputBox a parola maskesi sonu

satır = ActiveCell.Row

ListBox1.RowSource = ""

'On Error Resume Next

ActiveSheet.Unprotect "4455"

ActiveCell.Offset(0, 1).Value = CDate(TextBox1.Value)

ActiveCell.Offset(0, 2).Value = TextBox2

ActiveCell.Offset(0, 3).Value = ComboBox3.Value

ActiveCell.Offset(0, 4).Value = TextBox3.Value

ActiveCell.Offset(0, 5).Value = TextBox4.Value

ActiveCell.Offset(0, 6).Value = TextBox5.Value

ActiveCell.Offset(0, 7).Value = TextBox7.Value

ActiveCell.Offset(0, 8).Value = TextBox9.Value

ActiveCell.Offset(0, 9).Value = TextBox11.Value

ActiveCell.Offset(0, 10).Value = TextBox8.Value

On Error GoTo 0

ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [A65536].End(3).Row

Range("A65535").End(xlUp).Offset(1, 0).Select