Good day Mr. Miller,
You can trim the code right down to the following:-
Private Sub cbSubmit_Click()
Dim ws As Worksheet: Set ws = Sheet1
Dim sh As Worksheet: Set sh = Sheet2
Application.ScreenUpdating = False
sh.Range("A" & Rows.Count).End(3)(2).PasteSpecial xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Remove the current code that you have assigned to the button and replace it with the above.
I have used the sheet codes instead of the sheet names in the code above.
Test it in a copy of your workbook first.
I hope that this helps.