下标超出范围，无法粘贴转置值

Question

我是VBA的新手，遇到了粘贴/值/转置宏的问题。我需要能够从多个具有不同名称的工作簿中复制信息，但是要粘贴的工作簿将是相同的，除了要粘贴的单元格之外。

我尝试将“工作表”更改为实际的工作表名称，即“工作成本摘要”，并将“工作表”更改为“工作表1”。发生的一件事是，当我从工作簿中复制信息时，它会显示我复制的信息的哈希行，但是当我单击“宏”时，哈希标记就会消失。不知道这是否重要。

Sub Pasteinfo()

Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets("Sheet1")

WS.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

End Sub

我希望有一个宏，该宏将允许我从工作簿和工作表中复制具有不同名称的信息，并将其粘贴为值并转置到另一个工作簿中。

当我运行上述代码时，出现错误9，提示“下标超出范围。”