Dear Anthony

I understand you want the blank cells to remain where they are. Try the
below in ColA and feedback.

ColA with the below values (row 4 and row7 blank)
10,7,1, ,2,3, ,6,5,9
will be turned to the below(row 4 and row7 blank)
1,2,3, ,5,6, ,7,9,10


Sub SortWOBlanks()
Dim lngRow As Long
Dim lngCount As Long
Dim lngLastRow As Long
Dim varTemp As Variant
Dim arrTemp As Variant

Application.ScreenUpdating = False
lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
varTemp = Range("A1:A" & lngLastRow)
Range("A1:A" & lngLastRow).Sort Key1:=Range("A1")
lngRow = Range("A" & Rows.Count).End(xlUp).Row
arrTemp = Range("A1:A" & lngLastRow)
Range("A1:A" & lngLastRow) = varTemp
For lngRow = 1 To lngLastRow
If Range("A" & lngRow) < "" Then
lngCount = lngCount + 1
Range("A" & lngRow) = arrTemp(lngCount, 1)
End If
Next
Application.ScreenUpdating = True

End Sub



If this post helps click Yes
---------------
Jacob Skaria


"Anthony" wrote:

autosort with blank cell not moving eg
1-3-5-2-4- "-represent blank cell" when sorting i want
1-2-3-4-5- leaving blank cells where thy are