Yine aynı şeyi yapıyorsunuz
Açıklama yapmadan çözüm istiyorsunuz.
2. Ve 3. Rakamlar ne ile değişecek?
Her zaman sadec ilk 3 rakam aynı sayi ile değişecekse sorun yok ama ilk mesajınızda daha önceden 3. ve 5. Rakamlar varsayalım ki 6 ve 7 ile değişecek demiştiniz, başka bir örneğiniz de ise farklı sıradaki rakamları farklı sayılarla degistirilebileceginden söz etmiştiniz. Bir metin kutusuna girdiğiniz sayıya bakarak hangi sıradaki rakamın hangi rakamla değişeceğini biz nereden bile biliriz!!!

ben bir türlü anlatamadım kusura bakma;
soldan1. örnekte4 yazılı 5 ile değişecek değişiyor sorun yok
soldan2. örnekte1 yazılı 0,3,4,5 rakamlarından biri ile değişecek
soldan3. örnekte4 yazılı 1,2,3,4,5,6,7,8,9 rakamlarından biri ile değişecek
bu yazdığımı esas alın örnek ekte

1 - sadece soldan ilk 3 hanenin mi değişme ihtimali var? yani hepsinin, birinin yada kombinasyonlarının?
2 - tek düğme mi olacak? düğmeye basınca textboxlara bakılacak ve değer girilip girilmemesine göre işlem yapılacak yoksa 3 düğme olacak ve hangi düğmeye basılırsa ait olduğu değer mi değişecek?

1. düğmeye basınca textbox1'e bakıp sadece ilk haneleri
   
2. düğmeye basınca textbox2'e bakıp sadece ikinci haneleri
   
3. düğmeye basınca textbox3'e bakıp sadece üçüncü haneleri değişecek
   

3 - işlemler A sütunundaki tüm satırlara uygulanıp B sütununa mı yazılacak yoksa her işlem ayrı sütuna mı olacak

1. düğmeye basınca B sütununa
   
2. düğmeye basınca C sütununa
   
3. düğmeye basınca D sütununa
   

A sutununa gerek yok diğer 3 sutun önemli
1düğmeye basınca textbox1'e bakıp sadece ilk haneleri
2düğmeye basınca textbox2'e bakıp sadece ikinci haneleri
3düğmeye basınca textbox3'e bakıp sadece üçüncü haneleri değişecek
tek bir komut düğmesinde verme imkanı varsa daha iyi olur. olmazsa ayrı ayrı verebilirsin asağıdaki gibi
1düğmeye basınca B sütununa
2düğmeye basınca C sütununa
3düğmeye basınca D sütununa
yazdığın gibi bu şekilde

Düğmenin kodunu aşağıdaki kod ile değiştirip dener misiniz?
3ü tek kodda değişiyor

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")



Dim SonStr As Long

Dim DzA As Variant, DzSon As Variant



With ThisWorkbook.Sheets("Sheet1")

 SonStr = .Cells(.Rows.Count, "A").End(xlUp).Row

    DzA = .Range("A2:A" & SonStr).Value2

  dzByt = UBound(DzA)

    

  ReDim DzSon(1 To dzByt, 1 To 3)

    For x = 1 To dzByt

        DzSon(x, 1) = IIf(IsNumeric(.TextBox1.Text), .TextBox1.Text & Mid(DzA(x, 1), 2), DzA(x, 1))

        DzSon(x, 2) = IIf(IsNumeric(.TextBox2.Text), Left(DzA(x, 1), 1) & .TextBox2.Text & Mid(DzA(x, 1), 3), DzA(x, 1))

        DzSon(x, 3) = IIf(IsNumeric(.TextBox3.Text), Left(DzA(x, 1), 2) & .TextBox3.Text & Mid(DzA(x, 1), 4), DzA(x, 1))

    Next x

    .Range("B2").Resize(dzByt, 3) = DzSon

End With

harika olmuş çok teşekkür ederim. ellerine sağlık