to change the selection one row down

[hanim554]

Dear friends,

i have below code, after the selection i want selection come down for one row, could any please tell me where to change the code

Sub TEST()
 
    Range("B25000:I25000").Select
    Range(Selection, Selection.End(xlUp)).Select
  ''' here i want the selection one row to come down
    Selection.ClearContents
   
End Sub

Regards
Hanim

 

[shrivallabha]

Trying to save headers from deletion?

Sub TEST2()
Range(Range("B25000:I25000"), Range("B25000:I25000").End(xlUp)).Offset(1, 0).ClearContents
End Sub