图表格式妨碍了我的VBA范围

我试图从一系列不同的实例中提取数据。我被第一组数据卡住了，因为我认为图表的格式与我的数据位置有冲突。数据将影响图表。图表位于A1:A23到E1:E23的范围内。数据从B25:B36到E25:E36开始。数据正在拉至V1

Sub OneClickAuotFill()
    Dim Row2 As Long
    Dim Row3 As Long
    Dim Row4 As Long
    Dim Row5 As Long

    Row2 = Cells(Rows.Count, 2).End(xlUp).Row + 1
    Row3 = Cells(Rows.Count, 3).End(xlUp).Row + 1
    Row4 = Cells(Rows.Count, 4).End(xlUp).Row + 1
    Row5 = Cells(Rows.Count, 5).End(xlUp).Row + 1

    Dim wb As Workbook, wb2 As Workbook
    Dim ws As Worksheet, works As Worksheet
    Dim vFile As Variant

    Set ws = Sheets("Re-Releases")
    ws.Activate

    Set wb2 = ActiveWorkbook
    ActiveWorkbook.FollowHyperlink "C:\Users\sncook\Desktop\Engineering Charts\On Time Delivery Calc.xlsm"

    Set wb = ActiveWorkbook
    Set works = ActiveSheet

    Dim PageName As Variant
    PageName = InputBox("Please Enter Page Name", "Information")
    ActiveSheet.Name = PageName

    'wb2.Worksheets("Re-Releases").Range("A24").Select
    wb2.Worksheets("Re-Releases").Cells(Row2 & 1).Value = wb.Worksheets(PageName).Range("M324").Value
    wb2.Worksheets("Re-Releases").Range("C" & Row3).Value = wb.Worksheets(PageName).Range("N324").Value
    wb2.Worksheets("Re-Releases").Range("D" & Row2).Formula = "=IFERROR(SUM(1-C:C/B:B), 0)"
    wb2.Worksheets("Re-Releases").Range("E" & Row2).Value = wb.Worksheets(PageName).Range("M324").Value

    wb.Close

    If wb2.Worksheets("Re-Releases").Range("B28") = "" Then
        MsgBox "Didn't Work"
    Else
        MsgBox "Did Work"
    End If
End Sub

---

我首先看到的是行

wb2.工作表（“重新发布”）.单元格（第2行和第1行）。值
-单元格（第2行和第1行）
是什么意思？如果
Row2
是一个长/整数，例如
4
，则表示
单元格（41）
，这没有意义。。。我知道它需要一个列引用，但是如果我抛出一个像B24这样的列引用，那么它就会抛出一个不匹配的错误。你是否像下面的其他行一样尝试像
.Range（“a”&Row2.Value
？！是的，我是，哦，我猜它不会抛出错误，如果我这样做，它不会移动任何数据。