Пункт назначения автозаполнения не совпадает с размером диапазона

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

Может кто знает, где могут быть проблемы?