Definere range og sortere

Hej

Jeg har en table i Excel, som jeg med en knap vil kunne sorterer.
Udfordringen er at tabllen ikke altid har data i alle rækker.
Den skal sorterer på kolonne j fra størst (øverst) til mindst og den skal kun sortere den del, hvor der er data.
Den del hvor der ikke er data skal ikke sorters med og i de celler står der "-",
Hvis jeg sorterer på hele tabellen, kommer de "tomme" til at stå øverst og det skal de ikke. 
Jeg forestiller mig at jeg skal loope igennem koloonne j fra række 8 ( hvor tabellen starter) og ned til den række som indeholder en sting længde større end 1 og så definere et range (fra B8 til Jx) ud fra det, der så sorteres på kolonne j.
Jeg kan virkelig godt bruge noget hjælp?

'    ActiveWorkbook.Worksheets("sheet1").ListObjects("Table2").Sort. _
'      SortFields.Clear
'    ActiveWorkbook.Worksheets("sheet1").ListObjects("Table2").Sort. _
'        SortFields.Add Key:=Range("Table2[ndicator]"), _
'        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
'    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table2").Sort. _
'        SortFields.Add Key:=Range("Table2[Column1]"), SortOn:=xlSortOnValues, _
'        Order:=xlAscending, DataOption:=xlSortNormal
'    With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table2").Sort
'        .Header = xlYes
'        .MatchCase = False
'        .Orientation = xlTopToBottom
'        .SortMethod = xlPinYin
'        .Apply
'    End With