如果从列和列中删除数据时出现语句错误特殊粘贴

Question

让这个工作变得非常麻烦。

如果RowLast2为1，我希望它从前一段代码中粘贴已经放在剪贴板上的值。

如果RowLast2高于1，我希望它删除该列中标题的所有内容，然后从前一位代码中粘贴剪贴板中的值。

if语句的第一部分有效，但是我无法在第二部分得到正确的语法 - 无论我做什么都会出错。

这样做的正确方法是什么？大多数错误出现在PasteSpecial周围（我写的选择代码是否覆盖了剪贴板上的内容？）

RowLast2 = Cells(Rows.Count, rng2Office.Column).End(xlUp).Row

If RowLast2 = "1" Then
    Cells(1, rng2Office.Column).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues
Else
    Cells(RowLast2 - 1, rng2Office.Column).Select
    Range(Selection, Selection.End(xlUp)).Offset(1, 0).Delete
    Cells(1, rng2Office.Column).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues
End If