有条件地移动数据正在移动空白

Question

我有Excel报告。该报告上有许多不同的类型。 （A，B，C，D等）。我只喜欢这些类型中的一些 - 让我们说A和B.实际情况要大得多，否则我会使用自动过滤器。我正在尝试将A和B从第一个工作簿移动到第二个工作簿，剩下的就是其余部分了。这是我到目前为止所做的：

Sub ConditionalMoving ()
    Workbooks.Open Filename:=MSCReportPath
    Set MSCReport = ActiveWorkbook
    Workbooks.Open Filename:=CABReportPath
    Set CABReport = ActiveWorkbook

    Set MSTab = MSCReport.Sheets(1)
    LastRowMSC = MSTab.Range("A" & Rows.Count).End(xlUp).Row
    i = 1
    j = 1
    For i = i To i = WorksheetFunction.CountA(MSTab.Range("A1:A" & LastRowMSC))
        If IsNumeric(WorksheetFunction.Match(MSTab.Range("E" & i), Range("MSCFundList"), 0)) Then
            Set RngMSC = MSTab.Range("A" & i & ":AZ" & i                
            CabReport.Sheets("MS").Range("B" & j & ":BA" & j).Value = RngMSC.Value
            j = j + 1

        End If
    Next I
End sub

它运行没问题。最后，我在目标表上突出显示了一个大块 - 根本没有文字。突出显示的块的大小大致是我期望得到的。

我有任何明显的错误吗？我已经看到了一些浮动数组的东西，有没有更好的方法用数组做到这一点？您如何找到所需的部件并移动它们？

不会生成任何错误消息。