Macro range issue

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 


Or this:

Range("I65536").End(xlUp).Select

    If ActiveCell.Address(False, False) = "I2" Then
            Range("I2").Select
            Selection.Cut
            Range("H2").Select
            ActiveSheet.Paste
    Else
    
        Range("I2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Cut
        Range("H2").Select
        ActiveSheet.Paste
    
    End If

HTH

Robert

Outstanding!!!!! Those both work great.

Sorry I couldn't reply until now. I had some meeting this morning and just got back to my computer.

Thanks

Eddie.