Private Sub CmdQASubmit_Click()

If ComboBox19.Text = "" Then
    MsgBox ("You must select an Operator's Name")

End If

If ComboBox20.Text = "" Then
    MsgBox ("You must select a Reviewer's Name")
    
    Exit Sub
End If


row_number = 0

'added in
column_number = 0

Do
DoEvents
row_number = row_number + 1

'added in

column_number = Sheets("QA").Range("A1").End(xlToRight).Column + 1


item_in_review = Sheets("DATABASE").Range("A" & row_number)
scores = Sheets("QA").Range("A" & column_number)

    If item_in_review = ComboBox19.Text Then
        Sheets("DATABASE").Range("AG" & row_number) = ComboBox1.Text
       
       'added in
    If ComboBox1.Text = "Non-Satisfactory" Then
        Worksheets("QA").Range("D" & column_number) = "1"
    End If
    
    End If
    If item_in_review = ComboBox19.Text Then
        Sheets("DATABASE").Range("AH" & row_number) = ComboBox2.Text
        Sheets("DATABASE").Range("AI" & row_number) = ComboBox3.Text
        Sheets("DATABASE").Range("AJ" & row_number) = ComboBox4.Text
        Sheets("DATABASE").Range("AK" & row_number) = ComboBox5.Text
        Sheets("DATABASE").Range("AL" & row_number) = ComboBox6.Text
        Sheets("DATABASE").Range("AM" & row_number) = ComboBox7.Text
        Sheets("DATABASE").Range("AN" & row_number) = ComboBox8.Text
        Sheets("DATABASE").Range("AO" & row_number) = ComboBox9.Text
        Sheets("DATABASE").Range("AP" & row_number) = ComboBox10.Text
        Sheets("DATABASE").Range("AQ" & row_number) = ComboBox11.Text
        Sheets("DATABASE").Range("AR" & row_number) = ComboBox12.Text
        Sheets("DATABASE").Range("AS" & row_number) = ComboBox13.Text
        Sheets("DATABASE").Range("AT" & row_number) = ComboBox14.Text
        Sheets("DATABASE").Range("AU" & row_number) = ComboBox15.Text
        Sheets("DATABASE").Range("AV" & row_number) = ComboBox16.Text
        Sheets("DATABASE").Range("AW" & row_number) = ComboBox17.Text
        Sheets("DATABASE").Range("AZ" & row_number) = ComboBox20.Text
        Sheets("DATABASE").Range("BA" & row_number) = TextBox10.Text
        
    
  

  
  End If
  

    
    

    
Loop Until item_in_review = ""

ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
ComboBox8 = ""
ComboBox9 = ""
ComboBox10 = ""
ComboBox11 = ""
ComboBox12 = ""
ComboBox13 = ""
ComboBox14 = ""
ComboBox15 = ""
ComboBox16 = ""
ComboBox17 = ""
ComboBox18 = ""
ComboBox19 = ""



Dim resp

resp = MsgBox("Do you have any others to complete?", vbYesNo)
If resp = vbNo Then
    Unload Me
    
End If

End Sub
Hello all,
In the above-listed code, I am trying to account for scores of Non-Satisfactory. Column A on the QA sheet is exactly the same as column A on the DATABASE sheet. You will see where I put 
     'added in
    If ComboBox1.Text = "Non-Satisfactory" Then
        Worksheets("QA").Range("D" & column_number) = "1"
    End If
which is sending all of the information to the D column but not the correct row that is associated with the person's name.

Can anyone help me modify this? Thanks