If statement issue

[punter]

I need to tweak the code I have below:

            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.

[StephenR]

Try working from the bottom up, and you don't need the Select statement.

Please Login or Register  to view this content.

[punter]

Wow, that worked great. It is more fundamentally sound than what I was doing.

Thank you so very much.

Eddie.