VBA End property to end at certain cell

[iaindowner]

I have created a command button which I need to clear the contents of the lower most cell containing text in a range which is as follows:

Range("I22").End(xlUp).Select​

Selection.ClearContents​

However, I want the button to do nothing once all cells have been deleted up to I5 where currently the button continues to work past I5.

I have tried amending the range to I5:I22 but this does not seem to work.

 

[shg]

    Dim r As Range
    
    Set r = Range("I22").End(xlUp)
    If r.Row >= 5 Then r.ClearContents

 

[iaindowner]

    Dim r As Range
    
    Set r = Range("I22").End(xlUp)
    If r.Row >= 5 Then r.ClearContents

Amazing thank you!

 

[shg]

You're welcome.