Dosyanın son halini yollayın bakayım abey.Eklediğiniz dosyada alttakiler gereksizdi silmiştim yani onlarla alakası olamaz

son_dolu_satir = Sheets("ORDER_LIST").Range("A10000").End(xlUp).Row



 TextBox_SiparisKodu.Value = "SP-" & Format(Mid(Sheets("ORDER_LIST").Range("H2").Value, 4, 5) + 1, "00000")



 Sheets("ORDER_LIST").Range("H2").Value = TextBox_SiparisKodu.Text



 bos_satir = son_dolu_satir + 1

 Sheets("ORDER_LIST").Range("A" & bos_satir).Value = TextBox_SiparisKodu.Text

---

Bende silip bir deneyeyim