我试图粘贴到一个可变行的范围。该行基于最后一行+ 1。当我尝试运行代码时，出现调试错误。应该是B2：T2、B3：T3等。基于最后一行加一。
我使用了标准的复制粘贴，包括范围/单元格和行的变量。我的另一个复制粘贴的应用程序的工作刚刚好。

Dim lr As Integer, cr As Integer
      Dim r As Range
      
      lr = wb_main.Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
      cr = lr + 1
      Set r = wb_main.Worksheets("Data").Range("A" & lr)
      r.Offset(1).Value = r.Value + 1
      
      wb_main.Worksheets("Main").Range("E3:W3").Copy wb_main.Worksheets("Data").Range(Cells(cr, 2), Cells(cr, 20))
      wb_main.Worksheets("Main").Range("E3:W3").Delete