Private Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Ws As Worksheet
For Each Wb In Application.Workbooks
For Each Ws In Wb.Worksheets
With Ws
a = TextBox1
b = .Cells(12, 12)
i = 12
j = 12
Do While .Cells(i, j) <> ""
j = j + 4
Loop
.Cells(i, j) = a
.Range(Cells(i, j), .Cells(i, j + 3)).Merge
.Range("l13", "o48").Copy Destination:=.Cells(13, j)
.Range(.Cells(14, j), .Cells(44, j + 3)).ClearContents
End With
Next Ws
Next Wb
TextBox1.Value = ""
UserForm1.Hide
End Sub