Sortieren per VBA

Ich nehme per VBA folgende Sortierung vor:

Range("$A$3:N" & lZeileSort).Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("J2"), Order3:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

In der Spalte J gibt es Zellen mit Nummern (zB 4515, 167 usw.) und leere Zellen. Nun möchte ich, dass bei der sortierung zuerst die leeren Zellen und dann die Nummern aufsteigend angezeigt werden.
Können die leeren Zellen irgedwie beeinflusst werden?

Vielen Dank
Gregor