使用VBA在Excel中将信息从sheet1传输到sheet2

我想将信息从同一工作簿中的sheet1发送到sheet2。我可以对第一行和第二行执行此操作（我刚刚将第2行的代码加倍），但我不确定如何显示所有行。我还需要它只显示在图纸上，如果有一个数量（数量）为该行在第1页

这是我到目前为止所得到的。任何帮助都是非常感谢的（这里是初学者）

我的代码在这里：

Private Sub CommandButtonl_Click()

Dim DESCRIPTION As String, PRICE As String
Worksheets("Sheetl").Select
QTY = Range("R30")
PARTNOMB = Range("J30")
DESCRIPTION = Range("N30")
PRICE = Range("Q30")
Worksheets("Sheet2").Select
Worksheets("Sheet2").Range("C26").Select
If Worksheets("Sheet2").Range ("C26").Offset (1, 0) <> "" Then
    Worksheets("Sheet2").Range("C26").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = QTY
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = PARTNOMB
ActiveCell.offset(0, 5).Select
ActiveCell.Value = DESCRIPTION
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = PRICE
Worksheets("Sheet1").Select
QTY = Range("R31")
PARTNUMB = Range("J31")
DESCRIPTION = Range("N31")
PRICE = Range("031")
Worksheets("Sheet2").Select
Worksheets("Sheet2").Range("C26").Select
If Worksheets("Sheet2").Range ("C26").Offset(1, 0) <> "" Then
    Worksheets("Sheet2").Range("C26").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = QTY
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = PARTNOMB
ActiveCell.Offset(0, 5).Select
ActiveCell.Value = DESCRIPTION
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = PRICE

Private子命令按钮单击（）
Dim描述为字符串，价格为字符串
工作表（“工作表”）。选择
数量=范围（“R30”）
PARTNOMB=范围（“J30”）
描述=范围（“N30”）
价格=范围（“Q30”）
工作表（“表2”）。选择
工作表（“表2”）。范围（“C26”）。选择
如果工作表（“表2”）.范围（“C26”）.偏移量（1，0）”，则
工作表（“Sheet2”）。范围（“C26”）。结束（xlDown）。选择
如果结束
ActiveCell.Offset（1，0）。选择
ActiveCell.Value=数量
ActiveCell.Offset（0,6）。选择
ActiveCell.Value=PARTNOMB
ActiveCell.offset（0，5）。选择
ActiveCell.Value=DESCRIPTION
ActiveCell.Offset（0，2）。选择
ActiveCell.Value=PRICE
工作表（“表1”）。选择
数量=范围（“R31”）
零件编号=范围（“J31”）
描述=范围（“N31”）
价格=范围（“031”）
工作表（“表2”）。选择
工作表（“表2”）。范围（“C26”）。选择
如果工作表（“表2”）.范围（“C26”）.偏移量（1，0）”，则
工作表（“Sheet2”）。范围（“C26”）。结束（xlDown）。选择
如果结束
ActiveCell.Offset（1，0）。选择
ActiveCell.Value=数量
ActiveCell.Offset（0,6）。选择
ActiveCell.Value=PARTNOMB
ActiveCell.Offset（0，5）。选择
ActiveCell.Value=DESCRIPTION
ActiveCell.Offset（0，2）。选择
ActiveCell.Value=PRICE