Sorting range working but not on first cell

[austin350s10]

I'm using the below code to sort cells in columns A and B. I want the end product to have column B sorted alphabetically. This code works for the most part but it does not add the first cell into the sort. So cell B1 stays where it was originally even though it is supposed to be in the sort. Does anyone know what I'm doing wrong here?

With Workbooks(previous).Sheets("StaffList")
.Activate

lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Dim oneRange As Range
Dim aCell As Range

Set oneRange = Range(Cells(1, 1), Cells(lastrow, 2))
Set aCell = Range("B1")

oneRange.Sort key1:=aCell, order1:=xlAscending, Header:=xlYes


End With

 

[Fluff]

Hello there
You need to change

Header:=xlYes

to

Header:=xlNo

HTH