I thought I had everything working properly in this weekends project. Tonight,
I imported the weekly csv, and now I have another problem:

When I'm finished with everything, the last step is to sort it all based on 3
columns.

I recorded a macro to do that, shown below. I see the problem now is when I
record it, it throws in values like "Y11290". I don't want it to be Y11290,
because if next weeks file is 15,000 lines long, it won't all get sorted. How
do I change this so that it always sorts on all of the data?

Thanks in advance.

Columns("A:AD").Select
Range("AD1").Activate
ActiveWorkbook.Worksheets("import").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("import").Sort.SortField s.Add Key:=Range( _
"AD2:AD11290"), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("import").Sort.SortField s.Add Key:=Range( _
"F2:F11290"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("import").Sort.SortField s.Add Key:=Range( _
"Y2:Y11290"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("import").Sort
.SetRange Range("A1:AD9325")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With