Keeping blank rows when sorting

Here is the worksheet I need to sort and keep the blank rows where they are. Any suggestions on how to do this better?
Keep i nmind this is to display golf scores as they are coming in so it will be updated throughout the day.

the simplest way is to reference cells on another sheet
do your sorting on the other sheet.

see sheet 2

I had an idea and I think I have the code that works. I created a series number column and used Ctrl down to find where the data ranges and blank lines were, then numbered each set as a series. It let me sort within the data sets and keep the blank lines exactly where they were.

Sub SortBySeries()
Dim FinalRow As Long
Dim i As Long
Dim RangeEnd As Long
Dim RangeStart As Long
Dim BlankSwitch As Boolean

'determines last row of data in the desired range
Range("a1048576").Select
Selection.End(xlUp).Select
FinalRow = Selection.Row
Range("a:a").Insert shift:=xlToRight
Range("b2").Select
i = 2
Range("a1").Value = 1
BlankSwitch = False

'creates a column with the series number for each set of data
Do While ActiveCell.Row < FinalRow
If BlankSwitch = False Then
'tests for single line of data in the range, which will mess up the system
If ActiveCell.Offset(1, 0).Value <> 0 Then
RangeStart = Selection.Row
Selection.End(xlDown).Select
RangeEnd = Selection.Row
BlankSwitch = True
Else
'numbering in filled range
RangeStart = Selection.Row
RangeEnd = Selection.Row
BlankSwitch = True
End If
Else
'numbering in range with no data
RangeStart = Selection.Row + 1
Selection.End(xlDown).Select
RangeEnd = Selection.Row - 1
BlankSwitch = False
End If

Range("a" & RangeStart, "a" & RangeEnd).Value = i
i = i + 1
Loop

'sorts by series number to preserve blank rows and related data, then by 2 other criteria
Cells.Select
    ActiveWorkbook.Worksheets(1).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("A:A"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("E:E"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("H:H"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(1).Sort
        .SetRange Range("A1:P" & FinalRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub