VBA：在没有公式的情况下复制单元格值并粘贴到下一个可用行

Question

抱歉，如果有回应，但我发现我的问题是两部分。我目前正在尝试在包含公式的一个工作表中复制特定的单元格值。我希望将其粘贴到没有公式的另一个工作表，但在第二个工作表中我希望它确保将值粘贴到下一个可用行，即上面的行中没有数据。请参阅以下代码：

Worksheets("WS1").Range("A1").Copy Worksheets("WS2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Worksheets("WS1").Range("B2").Copy Worksheets("WS2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

谢谢！