自动填充目标的范围大小不同

Question

试图找到简单的自动填充宏的解决方案，直到最后一行。我得到一个错误，即所有合并的单元格都必须具有相同的大小。

Sub Button10_Click()
    Sheets("P").Select
    Range("P5").Select
    ActiveCell.FormulaR1C1 = "5"
    LastRow = Range("A65000").End(xlUp).Row
    Range("P5").Select
   Selection.AutoFill Destination:=Range("P5:P" & LastRow)  (error row)
Sheets("Test").Select
End Sub

也许有人知道哪里有问题？