Hi,

The code below has been working great for me but I need to add something to it. The code is currently looking at cell I2 to see if there is a value in it. If there is anything in it the formula will then select down to the end of the data, cutting it, and placing it in column H. It works great.

The problem I'm running into is if there is data only in cell I2. The formula is then copying all the way down to the end of the sheet and poplulating column H with a bunch of blanks. How can I get the formula to know that if there is data only in cell I2 to copy that cell but not copy down any further? I want to keep the code and functions that it performs but add that piece to the puzzel.

Any thoughts are most welcome.

Thanks

Eddie.


PHP Code: 
'If anything is in column I it will cut all data and place it in column H.  If there is nothing in that column it will not perform the function.
        
        
            If Range("I2").Value <> "" Then
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("H2").Select
ActiveSheet.Paste
End If