I am running in to a problem that maybe someone can solve.

I am trying to use a range based on the last cell of column P to fill in the data from O15:016 down to the what line Column P's Last row is.

J15 and J16 have the custom formating so I can get it to copy the format over to O15 and O16, but when I try to get auto fill to select the two and copy to the bottom of the list I get Method 'Range' of object '_Global' failed

    Range("J15:J16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O15:O16").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    MsgBox ("Formated first two")
    pLR = Range("P" & Rows.Count).End(xlUp).Row
    
    MsgBox pLR
    
    pLR = "O" & pLR
    
    MsgBox ("New pLR " & pLR)
    Selection.AutoFill Destination:=Range(Range("O17:" & pLR))
    Range("O15").Select
any help would be appreciated