Vba迭代工作表并将数据复制到另一个工作簿

Question

我正在尝试迭代一个工作簿的工作表和过滤器＆amp;将数据复制到另一个新数据。 woksheets都已创建，但只有第一个填充了数据。 我有以下代码：

   For Sheet_No = 0 To 4
    Original_Sheet_Name = Sheet_Names(Sheet_No)
    New_wrkb.Sheets.Add.Name = Original_Sheet_Name

    For i = 3 To lastRowDebtor                
             Original_wrkb.Sheets(Original_Sheet_Name).Range("A" & i & ":L" & i).Copy _
             Destination:=New_wrkb.Sheets(Original_Sheet_Name).Range("A" & j & ":L" & j)
    Next i
   Next Sheet_No