Private Sub CommandButton1_Click()
    Dim ws          As Worksheet
    Dim lr          As Long
    Dim i           As Long

    Set ws = ThisWorkbook.Worksheets("الحسابات العامة")

    If Me.ComboBox1.Value = "" Then MsgBox "عفواً يجب اختيار الشيت المرحل إليه البيانات": Exit Sub
    Worksheets(Me.ComboBox1.Value).Activate

    lr = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row + 1

    For i = 1 To 6
        'If i = 5 Then i = i + 1
        Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value
        ws.Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value
    Next i
    TextBox2.SetFocus
End Sub