有大神能给我翻译一下vba代码么

Private Sub queding1_Click()
Dim row1 As Integer
On Error GoTo doerror
tiaoma = TextBox2.Text
row1 = Sheets("货品分拣").[B200].End(xlUp).row
Cells(row1 + 1, 2).Value = tiaoma
tiaoma2 = ""
TextBox2.Text = tiaoma2
tiao.Caption = [ak1].Value
Dim row As Integer
On Error GoTo doerror
tiaoma3 = TextBox1.Text
row = Sheets("货品分拣").[B200].End(xlUp).row
Cells(row1 + 1, 3).Value = tiaoma3
tiaoma4 = ""
TextBox1.Text = tiaoma3
tiao.Caption = [ak1].Value
Exit Sub
doerror:
End Sub