Excel VBA从一些工作表中复制一个单元格并保存到另一个工作表中

我有5张表：

图表、表1、表2、表3和列表

我必须将表格1中的单元格

B3复制到表格C2中的图表上，将表格2中的单元格
B3复制到表格C3中的图表上，但我不能触摸表格列表

nbrows = Range("A" & rows.Count).End(xlUp).Row
For y = 2 To nbrows   
    Workbooks("JiraKPI.xlsm").Activate
    Worksheets(Worksheets("Sheet" & y).Range("B3").Copy
    Worksheets("Graph").Select
    If Range("C2") <> ("") Then
        Range("$C65536").End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues
    Else
        Range("C2").Select
        ActiveSheet.Paste
    End If
Next y

nbrows=Range（“A”和rows.Count）.End（xlUp）.Row
对于y=2到nbrows
工作簿（“JiraKPI.xlsm”）。激活
工作表（工作表（“工作表”）和y）。范围（“B3”）。副本
工作表（“图形”）。选择
如果范围（“C2”）（“”），则
范围（$C65536”）。结束（xlUp）。偏移量（1，0）。选择
Selection.Paste特殊粘贴：=xlPasteValues
其他的
范围（“C2”）。选择
活动表。粘贴
如果结束
下一个y

任何帮助都将不胜感激。
我很困惑。你能澄清你的问题吗？你的问题是什么，在哪里你没有进一步的了解？请提供一个具体的问题。我试图在下面的回答中用图片更准确地描述。谢谢你（1）是
工作簿（“JiraKPI.xlsm”）
代码所在的工作簿。如果是这样，我建议改用
此工作簿
（以防有人重命名文件）。（2）为什么要在
工作表（工作表（“工作表”）.Range（“B3”）行中重复
工作表
。复制两次？应该是
工作表（“工作表”）.Range（“B3”）.Copy
only.（3）行
范围（“A”&rows.Count）.结束（xlUp）.行
不引用任何工作表。您要从哪个工作表中查找列“A”中的最后一行？实际上，您可能需要添加一个
工作表
引用到您的大多数行或我们
工作表（“图形”）
。我很困惑。你能澄清一下你的问题吗？你的问题是什么，你没有进一步的了解吗？请提供一个具体的问题。我试图在下面的回答中用图片更精确地描述。谢谢你（1）是
工作手册（“JiraKPI.xlsm”）
代码所在的工作簿。如果是这样，我建议改用
此工作簿
（以防有人重命名文件）。（2）为什么要在
工作表（工作表（“工作表”）.Range（“B3”）行中重复
工作表
。复制两次？应该是
工作表（“工作表”）.Range（“B3”）.Copy
only.（3）行
范围（“A”&rows.Count）.结束（xlUp）.行
不引用任何工作表。您要从哪个工作表中查找列“A”中的最后一行？实际上，您可能需要添加对大多数行的
工作表
引用，或者使用工作表（“图形”）
。