How to sort a range but ignore blanks with vba?

[JumboCactuar]

Hi,
I have a range which I use for data (b2:j35)

Data not always down to row 35 so when i sort by column J (Largest to Smallest) its putting blanks to the top

Anyone have a solution to this?
Much appreciated

 

[oldbrewer]

sort small to large, the blanks go to the bottom

if more complicated show us some data

 

[JumboCactuar]

sort small to large, the blanks go to the bottom

if more complicated show us some data

Ye that works but i need largest to the top

 

[oldbrewer]

so delete all rows with blanks currently at the bottom, then sort again large to small - or - use vba to "move" the blanks to the bottom, then sort only the non blanks - seems like a sledgehammer to crack a nut.

 

[oldbrewer]

9								original data	1
8										3
7
6										5
5
4										7
3										8
2
1										2
										4
										6
										9
		this macro achieves what I think you want
										after first part of macro
		For j = 1 To 12							1
		For k = j + 1 To 13							3
		If Cells(j, 1) = "" Then temp = Cells(j, 1): Cells(j, 1) = Cells(k, 1): Cells(k, 1) = temp	5
		Next k								7
		Next j								8
		For a = 1 To 13							2
		If Cells(a, 1) = "" Then tot = tot + 1					4
		Next a								6
		For z = 1 To 13							9
		For b = 1 To 13 - tot - 1
		c = b + 1
		If Cells(c, 1) > Cells(b, 1) Then temp = Cells(b, 1): Cells(b, 1) = Cells(c, 1): Cells(c, 1) = temp
		Next b
		Next z
		End Sub

<colgroup><col span="9"><col><col span="4"></colgroup><tbody>
</tbody>