Sort problems with macro

Hi all!

I am trying to sort all rows of a work sheet with a header by one header name. Below is a sample of my data. I bring it in from a CSV file. Below that is the code to do the sort however, when I run the macro it will not sort. I used the macro recorder to do the code as I haven't been in VB for years. I will want to use this in several workbooks that have varying number of rows but all have the same format.

05 2013
Class 4 Ship To Item Description Extended Description 2 CompFcst
200 #N/A 132002 UL HAL FLTCH #1 FRESH 5# RDM WT 0
280 31 ABC123 SOCK SAL PTN PBO 6OZ VP 10/3# 122000
280 32 ABC456 SOCK PTN PBO 6OZ VP 10/3# 0
280 33 ABC789 SOCK PTN PBO 6OZ VP 10/3# 25000
280 34 ABCABC SOCK PTN PBO 6OZ VP 10/3# 3000

Sub Macro10()
'
' Macro10 Macro
'

'
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Sheet1 (7)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1 (7)").Sort.SortFields.Add Key:=Range( _
"B3:B106"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1 (7)").Sort
.SetRange Range("A3:AO106")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Thank you!!!

Tanya

I have attached both the macro I'm working on and the unformatted data file.

Thanks!

Tanya