VBA problem selecting column

I have the following macro:

Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("1:10").Select
Selection.Delete Shift:=xlUp
Range("G1").Select
Columns("B:B").Select
Selection.ColumnWidth = 11.86

This works until the second last line where I want to select column B. It is
actually selecting columns A-R. At that point columns A-S exist so it's not
selecting all columns with data. I added the range line above that so that it
would deselect rows 1 - 10.

I've tried deleting my macro and starting over and also deleting the worksheet
to no avail.

Any help is appreciated.

Thanks Brian, your suggested method resolved my problem!