I need to tweak the code I have below:

PHP Code: 
            If Range("P2").Value <> "" Then
Range("P2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("O2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If 
That code works great. But I ran into a problem. If there is data in P2 but all other cells in that column are blank it is copying down to the bottom of the sheet and then pasting blank cells over the data in column O.

I want to code to not copy past P2 if there is no other data under P2.

Thank in advance for you help.

Eddie.