Selecting sort criteria in a macro

[mxman]

I have the following "sort" code

Selection.Sort Key1:=Range("B:B"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Selection.Sort Key2:=Range("H:H"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Does someone know how to modify that part of the code that is in bold font, so that it is variable and can be read from the value of cells A2 and A3 in the workbook.

Any help will be greatly appreciated.