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