Missing code

[taglimm]

In the below formula, I'm missing an important code that I'm at a loss to figure out.

'Delete unused formulas column J
Range("J3").Select
Range(Selection, Selection.End(xlDown)).Select
??????????????
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A3").Select

The object is to delete the formulas contained cells bellow the cells that contain data. I select J3, CTRL+Shift+down arrow to get to the last cell containing text. In the above code where the question marks are, is where I need to tell my form to select the next cell below (this code needs to be fluid as the length of the column varies day to day). then I continue on with the code as written to delete the unused formulas from that point down.

Any assistance would be much appreciated.

 

[Fluff]

Is there any particular column that will always have data on the last row?

 

[taglimm]

Columns A through I will contain data but these columns are also fluid in that they change in length day to day.

 

[Fluff]

How about

   Range(Range("A" & Rows.Count).End(xlUp).Offset(1, 9), Range("J" & Rows.Count).End(xlUp)).ClearContents