Excel VBA从工作表复制/粘贴链接

我不知道这里发生了什么事。在高层次上，以下是我努力实现的目标：

在名为“LH-to-HousingL1L4紧固件”的工作表中，找到包含文本“LCID最小值”的单元格

使用上面（1）中的结果向下偏移2个单元格，并向左偏移1个单元格，我将在其中开始选择

使用

Selection.End（xlDown））。选择
方法从上面（2）中的单元格一直选择到数据的末尾（没有空格/间隙）

复制上面（3）中选择的范围

将从（4）到从“B3783”开始的范围的链接向下粘贴到另一张名为“SuperMargins”的工作表上

当我运行代码时，它几乎可以运行，但是粘贴的链接不是完全限定的。也就是说，它们看起来像这样：

=AX27

与此相反：

='LH-to-HousingL1L4紧固件'！AX24

我怎样才能得到想要的行为

谢谢你的阅读

Option Explicit
Sub CopyFastenerMargins()

Dim nameRng As Range
Dim r As Range

Set r = Worksheets("LH-to-HousingL1L4 Fastener").Cells.Find(What:="Minimums by LCID", Lookat:=xlWhole, MatchCase:=True)
Set r = r.Offset(2, -1)
Dim s As String
s = r.Address
With Worksheets("LH-to-HousingL1L4 Fastener")
    Range(s).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
End With

Sheets("SuperMargins").Select
Range("B3783").Select
ActiveSheet.Paste Link:=True

End Sub

---

（4）的单元格中有什么？请给出一个与公式栏中完全相同的示例。@Absince步骤（4）是复制一个范围（在一列中）。此范围内的单元格包含数字。第一个单元格是101，第二个单元格是102，等等。我的目的是复制包含公式的其他范围。但首先要做的是用简单的数字来处理这个问题。thxI可以看到现在发生了什么！它是从“SuperMargins”工作表中复制的，而不是“LH-to-HousingL1L4紧固件”。为什么？如何从正确的工作表中提取？我尝试更明确地使用板材（“LH-to-HousingL1L4紧固件”）。范围。选择但获取错误，该方法不受支持。