You can change the line below;

Set dataRange = Range("A2:a10")
to
Set dataRange = Range("A2:B10")

If you want to do this in a seperate series post back and i'll give you
some more code.