Dynamic Delete VBA Code Not Working as required

[Manan]

Hi All ,

I am trying to Delete the Selection from H14:O(xx) where xx represents the variable number of Columns, depends upon the number of rows get populated. I have written below code but this is deleteing the wrong selection of Data. Can someone look and help me , waht i am doing wrong.

Sub DynDel()
'
' DynDel Macro
'
'
  
  Range("H14:O" & Cells(Rows.Count, 1).End(xlUp).Row).Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.ClearContents
End Sub

 

[Hui]

Replace your 3 lines with a single line:

  Range("H14:O" & Cells(Rows.Count, 8).End(xlUp).Row).ClearContents

 

[Manan]

Replace your 3 lines with a single line:

  Range("H14:O" & Cells(Rows.Count, 8).End(xlUp).Row).ClearContents

U r the master sir , HatsOff to you !!!! Thanks for the solution