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

我想要将信息发送到同一个工作簿中sheet1的sheet2。 我可以做的第一和第二行（我只是第二行的代码加倍），但我不知道如何显示所有的行。 如果sheet1上的那一行有数量（QTY），我也需要它仅显示在工作表上。

这是我到目前为止..任何帮助感激（初学者在这里）。

我的代码在这里：

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