Excel 使用宏将粘贴复制到不同位置

我需要的代码复制粘贴在下面的最后一行数据在它的行。我编写了代码来实现这一点，但不是只从E2:J9中拾取数据，而是从pivot中从B2:J9拾取数据。 我该如何解决这个问题。 谢谢

试试看

Sub aaaaaa()
Dim ws As Worksheet
Set ws = Worksheets("Pivot_WH calculations") 'change name as needed

With ws
   'assumes data is in a "table" format with all data rows in column A and data columns in row 1
   Dim lRow As Long, lCol As Long
   lRow = .Range("A" & .Rows.Count).End(xlUp).Row
   lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

   .Range("E2:J9").Copy _
    Worksheets("WH Calc_new").Range("L" & .Rows.Count).End(xlUp).Offset(2)


   .Range("A2:A9").Copy _
    Worksheets("WH Calc_new").Range("K" & .Rows.Count).End(xlUp).Offset(2)
End With

End Sub

---

如果范围是特定的，您不需要像

AAA

所说的lrow和lcol，如果您只想从E2:J9获取数据，为什么要使用lrow和lcol？这

.Range（.Range（“E2:J9”），.Cells（lrow，lcol））。Copy

应该是

.Range（“E2:J9”）。复制类似的内容，用于其他专栏谢谢，我使用了不同的代码作为基础。我可以如何按顺序添加日期，我不能使用for循环，因为它将填充其他单元格，我如何添加代码，以便每隔7天添加一个单元格到日期。谢谢你应该问一个新问题，清楚地解释你面临的问题。
Sub aaaaaa()
Dim ws As Worksheet
Set ws = Worksheets("Pivot_WH calculations") 'change name as needed

With ws
   'assumes data is in a "table" format with all data rows in column A and data columns in row 1
   Dim lRow As Long, lCol As Long
   lRow = .Range("A" & .Rows.Count).End(xlUp).Row
   lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

   .Range("E2:J9").Copy _
    Worksheets("WH Calc_new").Range("L" & .Rows.Count).End(xlUp).Offset(2)


   .Range("A2:A9").Copy _
    Worksheets("WH Calc_new").Range("K" & .Rows.Count).End(xlUp).Offset(2)
End With

End Sub