Vba 获取粘贴方法失败，错误代码为

我对这段代码有一些问题，它在wS.RangeB1.Paste链接上给出错误消息：=True。此代码允许用户选择一个范围，该范围应粘贴在工作簿的每一页上，在指定的行范围B1到N1中。它表示粘贴方法失败。尝试包括整个B1:N1范围，但仍然得到相同的错误。帮点忙就好了。谢谢大家!

   Sub test()
      Dim Rng As Range, _
        Inp As Range, _
        wS As Worksheet

    Set Inp = Selection
    Inp.Interior.ColorIndex = 37
    On Error Resume Next
    Set Rng = Application.InputBox("Copy to", Type:=8)
    On Error GoTo 0
    If TypeName(Rng) <> "Range" Then
        MsgBox "Cancelled", vbInformation
        Exit Sub
    Else
        Rng.Parent.Activate
        Inp.Copy

        For Each wS In ActiveWorkbook.Worksheets
            wS.Range("B1").Paste Link:=True
        Next
    End If

    Application.CutCopyMode = 0

End Sub

---

那么以下内容如何：

Sub test()
      Dim Rng As Range, _
        Inp As Range, _
        wS As Worksheet


    Set Inp = Selection
    Inp.Interior.ColorIndex = 37
    On Error Resume Next
    Set Rng = Application.InputBox("Copy to", Type:=8)
    On Error GoTo 0
    If TypeName(Rng) <> "Range" Then
        MsgBox "Cancelled", vbInformation
        Exit Sub
    Else
        Inp.Copy

        For Each wS In ActiveWorkbook.Worksheets
            Inp.Copy wS.Range(Rng(1).Address)
        Next
    End If

    Application.CutCopyMode = 0

End Sub

---

你能告诉我你对这个代码的要求吗。你只要解释一下代码。我想在编写代码之前了解要求。我希望代码能够从数据库工作表复制特定范围，并粘贴到工作簿的所有其他工作表范围B1:N1。范围对象没有粘贴方法。如果您想增加获得帮助的机会，请从创建“Rng1.Address”的含义开始。它不起作用。运行后没有效果！没有浆糊吗？它应该粘贴到活动工作簿中的每个其他工作表上，而不是作为副本放置。除非我错误地理解了你的代码