求助！EXCEL工作表数据自动保存到另一个工作表

要求把上图B2,I3,B5:I19内的内容保存到下图对应的项目中


以下是我在网上找到的有网友写好的VBA，上图表格的内容能保存到下图，但是从“订单编号那一项开始就对不上。本人对VBA一点都不懂，所以求助，谢谢能帮得上忙的网友帮我看看，谢谢！
Private Sub CommandButton1_Click()Dim nRow%, nRow1&arr = Me.Range("b5:J100")nRow1 = Me.Range("B4").End(xlDown).RowCommandButton1.Enabled = FalseIf nRow1 > 20 Then Exit SubWith Sheets("汇总") nRow = .Range("a65536").End(xlUp).Row + 2 .Range("d" & nRow).Resize(nRow1 - 4, 9) = arr .Range("a" & nRow).Resize(nRow1 - 4, 1) = Range("B2") .Range("b" & nRow).Resize(nRow1 - 4, 1) = Range("i3")End WithEnd Sub
Private Sub CommandButton2_Click()Application.EnableEvents = FalseCommandButton1.Enabled = FalseRange("b5:I20").ClearContentsApplication.EnableEvents = TrueEnd Sub
Private Sub Worksheet_Change(ByVal Target As Range)CommandButton1.Enabled = TrueEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
'Private Sub Workbook_BeforePrint(Cancel As Boolean)'Dim nRow As Integer'With Sheet2'nRow = .Range("a65536").End(xlUp).Row + 1'.Range("a" & nRow) = Sheet1.Range("B2")'.Range("b" & nRow) = Sheet1.Range("I3")'.Range("c" & nRow) = Sheet1.Range("B5")'.Range("d" & nRow) = Sheet1.Range("C5")'.Range("e" & nRow) = Sheet1.Range("D5")'.Range("f" & nRow) = Sheet1.Range("E5")'.Range("g" & nRow) = Sheet1.Range("F5")'.Range("h" & nRow) = Sheet1.Range("G5")'.Range("i" & nRow) = Sheet1.Range("H5")'.Range("j" & nRow) = Sheet1.Range("I5")'.Range("k" & nRow) = Sheet1.Range("J5")'.Range("l" & nRow) = Sheet1.Range("K5")'End With'End Sub