Sort two columns as one

Hi,

first - I have names in A column and dates in B column
from A5:B10
second - names in D column and dates in E column
from D5:E30

I can sort them independently and then copy upper of the second to the bottom of the first
but I need to sort them as one, upper values of second columns to be
appended on empty rows on A5:B10 (if any) and rest to be sorted in D5:E30

is there a way to do this.

sort by dates
B5:B10
and
E5:E30

Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Application.Goto Reference:="godisnji12"
Selection.Copy
Range("K5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Range("K5:L21").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("L5:L21") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("K5:L21")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("K5:L10").Select
Selection.Copy
Range("A5").Select
ActiveSheet.Paste
Range("K11:L21").Select
Application.CutCopyMode = False
Selection.Copy
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("D5").Select
End Sub