VBA code that finds first row in column with integers and stores rownum as variable

Question

I know this is really simple but I am new to VBA and I really don't know what I am doing

Dim StartRow As Range
Dim Sht As Worksheet
Dim TotalRows As Long
Dim StartCell As Integer    

Set StartRow = Sht.Range("J7").End(xlDown)  'I just need to create a variable for the first
' row with numerical figures in column J and then use this as a starting point for my
' data in column D as well.

In the end I want VBA code that will select two ranges (one in column D and one in J) but where the starting point between the two will be the same, but it will be different across spreadsheets, hence the End(XlDown) function. The range just needs to select all the data going down until it his the #N A N A signs.

Answer 1

range("j7:j100").SpecialCells(xlCellTypeConstants,xlnumbers).Cells(1,1).row