Помогите сократить код

Private Sub CommandButton1_Click()
If ComboBox1.Text = Worksheets("Mutq").Range("A6") Then
With Worksheets("Mutq").Cells(6, 256).End(xlToLeft)
     .Item(1, 2) = TextBox1.Text
     .Item(1, 3) = TextBox2.Text
     .Item(1, 4) = TextBox3.Text
          .Item(1, 5) = TextBox2.Text * TextBox3.Text
End With
 
ElseIf ComboBox1.Text = Worksheets("Mutq").Range("A7") Then
With Worksheets("Mutq").Cells(7, 256).End(xlToLeft)
     .Item(1, 2) = TextBox1.Text
     .Item(1, 3) = TextBox2.Text
     .Item(1, 4) = TextBox3.Text
     .Item(1, 5) = TextBox2.Text * TextBox3.Text
End With
 
ElseIf ComboBox1.Text = Worksheets("Mutq").Range("A8") Then
With Worksheets("Mutq").Cells(8, 256).End(xlToLeft)
     .Item(1, 2) = TextBox1.Text
     .Item(1, 3) = TextBox2.Text
     .Item(1, 4) = TextBox3.Text
     .Item(1, 5) = TextBox2.Text * TextBox3.Text
End With
ElseIf ComboBox1.Text = Worksheets("Mutq").Range("A9") Then
With Worksheets("Mutq").Cells(9, 256).End(xlToLeft)
     .Item(1, 2) = TextBox1.Text
     .Item(1, 3) = TextBox2.Text
     .Item(1, 4) = TextBox3.Text
     .Item(1, 5) = TextBox2.Text * TextBox3.Text
End With
ElseIf ComboBox1.Text = Worksheets("Mutq").Range("A10") Then
With Worksheets("Mutq").Cells(10, 256).End(xlToLeft)
     .Item(1, 2) = TextBox1.Text
     .Item(1, 3) = TextBox2.Text
     .Item(1, 4) = TextBox3.Text
     .Item(1, 5) = TextBox2.Text * TextBox3.Text
End With
ElseIf ComboBox1.Text = Worksheets("Mutq").Range("A11") Then
With Worksheets("Mutq").Cells(11, 256).End(xlToLeft)
     .Item(1, 2) = TextBox1.Text
     .Item(1, 3) = TextBox2.Text
     .Item(1, 4) = TextBox3.Text
     .Item(1, 5) = TextBox2.Text * TextBox3.Text
End With
‘…………………и т.д. до Range("A300")
End If
End Sub

Private Sub GetMyProduct(ByVal plngRow As Long)
 
    If ComboBox1.Text = Worksheets("Mutq").Range("A" & CStr(plngRow)) Then
 
        With Worksheets("Mutq").Cells(plngRow, 256).End(xlToLeft)
            .Item(1, 2) = TextBox1.Text
            .Item(1, 3) = TextBox2.Text
            .Item(1, 4) = TextBox3.Text
            
            If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then
                    .Item(1, 5) = Val(TextBox2.Text) * Val(TextBox3.Text)
            End If
 
        End With
    End If
 
End Sub

Private Sub CommandButton1_Click()
 
Worksheets("Mutq").Activate
 
for lngRow = 6 to 300
    GetMyProduct plngRow
next lngRow
 
end sub

Private Sub CommandButton1_Click()
  Worksheets("Mutq").Activate
  GetMyProduct 124 'primer dlya "A124"
end sub

Private Sub GetMyProduct(ByVal plngRow As Long)
If ComboBox1.Text = Worksheets("Mutq").Range("A" & CStr(plngRow)) Then
With Worksheets("Mutq").Cells(plngRow, 256).End(xlToLeft)
.Item(1, 2) = TextBox1.Text
.Item(1, 3) = TextBox2.Text
.Item(1, 4) = TextBox3.Text
If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then
.Item(1, 5) = Val(TextBox2.Text) * Val(TextBox3.Text)
End If
End With
End If
End Sub

Private Sub CommandButton1_Click()
If IsNumeric(TextBox2.Value) = True And _
   IsNumeric(TextBox3.Value) = True And _
   TextBox1.Value <> "" And ComboBox1.Value <> "" Then
   For iRow% = 6 To 300
       If ComboBox1.Value = Worksheets("Mutq").Cells(iRow, 1).Value Then
          With Worksheets("Mutq").Cells(iRow%, 256).End(xlToLeft)
               .Item(1, 2) = TextBox1.Value
               .Item(1, 3) = TextBox2.Value
               .Item(1, 4) = TextBox3.Value
               .Item(1, 5) = TextBox2.Value * TextBox3.Value
           End With
       Exit For
       End If
    Next
Else
    MsgBox "До свиданья ... " & vbNewLine & _
           "Ибо нефиг баловаться", vbCritical, _
           "Ошибка пользователя !!!": Unload Me
End If
End Sub