Is there a way for this VBA code to Ignore the spaces & give the results at the top of the page?

[RudeBoy]

I have data that is sorting perfectly but it is at the bottom of the page

Here is my VBA:

Sub Worksheet_Activate()
'RnkSrt Macro
Dim SortRange As Range, RowCount As Long, StartRow As Long

With Me
StartRow = 1
RowCount = .UsedRange.Rows.Count
If RowCount > StartRow Then
''Set SortRange = .Range(.Cells(9, 1), .Cells(RowCount, 16))
Set SortRange = .Range(.Cells(1, 1), .Cells(RowCount, 2))

''SortRange.Sort Key1:=.Cells(9, 1), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
SortRange.Sort Key1:=.Cells(1, 1), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else
MsgBox "No data after Row #" & StartRow & ". There is nothing to sort."
End If
.Range("A1").Activate
End With
End Sub

This is what the results I get: It is exactly what I want accept the results are behind the empty cells
I need the perfectly sorted data at the top of the page in A1 Helppppppppp

Here is the current results:

 

[Alex Blakenburg]

Thanks for letting us know. Glad we could help.