Combine two codes into one

[intex]

Hi guys,

Can somebody help me to combine the code in red with the code in blue.

This is what i would like achieve:
If the textbox "txtQty" is blank exit sub, but if "txtQty" textbox has a value and "sw1" combobox is blank then "sw1.Value = CommandButton5.Caption" but if "txtQty" textbox has a value and "sw1" combobox has a value then sw2.Value = CommandButton5.Caption. But if the combobox "cmbOnline".Value = "Standard" Then execute code in blue.

I'm so stuck, I would appreciate any help.
Thanks in advance

Private Sub CommandButton5_Click()
If txtQty = "" Then
Exit Sub
ElseIf sw1 = "" Then
sw1.Value = CommandButton5.Caption
Else: sw2.Value = CommandButton5.Caption
End If

Otherwise execute code below:

If Trim(Me.cmbOnline.Value) = "Standard" Then
  Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("DataBase")
'find first row in database
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Range("A" & irow) = cmbDate.Value
.Range("B" & irow) = txtTime.Value
.Range("C" & irow) = cmbOperator
.Range("D" & irow) = cmbLine.Value
.Range("E" & irow) = txtOrder.Value
.Range("F" & irow) = txtPart.Value
.Range("G" & irow) = txtDescription
.Range("H" & irow) = txtQty.Value
.Range("I" & irow) = txtUom
.Range("K" & irow) = txtComments
.Range("J" & irow) = CommandButton4.Caption
If sw1 = "" Then
sw1.Value = CommandButton5.Caption
Else: sw2.Value = CommandButton5.Caption
Me.txtOrder.SetFocus
    Me.txtOrder.SelStart = 0
   Me.txtOrder.SelLength = Len(Me.txtOrder.Text)
End If
End With
End Sub

[JBeaucaire]

Since the red code is part of the blue code, just split them, so perhaps:

Dim irow As Long
Dim ws As Worksheet

If Trim(Me.cmbOnline.Value) = "Standard" Then
    Set ws = Worksheets("DataBase")
    'find first row in database
    irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Range("A" & irow) = cmbDate.Value
        .Range("B" & irow) = txtTime.Value
        .Range("C" & irow) = cmbOperator
        .Range("D" & irow) = cmbLine.Value
        .Range("E" & irow) = txtOrder.Value
        .Range("F" & irow) = txtPart.Value
        .Range("G" & irow) = txtDescription
        .Range("H" & irow) = txtQty.Value
        .Range("I" & irow) = txtUom
        .Range("K" & irow) = txtComments
        .Range("J" & irow) = CommandButton4.Caption
    End With
End If

If sw1 = "" Then
    sw1.Value = CommandButton5.Caption
Else
    sw2.Value = CommandButton5.Caption
End If

Me.txtOrder.SetFocus
Me.txtOrder.SelStart = 0
Me.txtOrder.SelLength = Len(Me.txtOrder.Text)

[intex]

Thanks a lot it does exactly what i need,perfect!