Hey all,
This is a pretty basic issue with I'm sure a pretty basic answer, but I'm stuck

At the end of this big complex module which works fine, all I want to do is sort my data (numbers formatted as text) in ascending order.
Every 4th column contains this data, so my code looks like this:

For i = 1 To 37
    Wreport.Select
    Wreport.Range(Cells(5, i), Cells(1000, i)).Select
    Selection.Sort Key1:=Wreport.Cells(5, i), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    i = i + 3
Next i
This works perfectly fine on all the columns EXCEPT the first one...which every time adds one blank cell at the top in cell(5,1) (it does not replace a number but bumps them all down).
I've tried it from the 4th row with Header:xlYes, I've tried deleting some of that stuff in the sort function that I don't know what it does...etc.

Thanks in advance for any help!!