hücrelere veri atama kodunu aşağıdaki gibi düzenleyip dener misiniz?
eklediğim kodlar sadece LMNO sütunlarına textbox değerini eklemekle ilgili

Private Sub CommandButton1_Click()



'hy______________________________________________Eklenen

xTxt2 = 2

For xTxt = 1 To 20

    If Len(Controls("textbox" & 4 * (xTxt - 1) + 1).Value & Controls("textbox" & 4 * (xTxt - 1) + 2).Value & Controls("textbox" & 4 * (xTxt - 1) + 3).Value & Controls("textbox" & 4 * (xTxt - 1) + 4).Value) > 0 Then

        Sheets("VERİLER").Range("L" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 1).Value

        Sheets("VERİLER").Range("M" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 2).Value

        Sheets("VERİLER").Range("N" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 3).Value

        Sheets("VERİLER").Range("O" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 4).Value

        xTxt2 = xTxt2 + 1

    End If

Next xTxt

'hy______________________________________________Bitti

sonsat = Sheets("VERİLER").[L65536].End(3).Row + 1

s = 12: a = 2

For i = 1 To 77 Step 3

Cells(sonsat, s) = Controls("TextBox" & i + 1)

If s >= 10 Then a = 2

s = s + 1

Next i



End Sub