AutoFilter Working But Causing Data Glitch On Another Sheet

**xander1981** · 02-06-2014, 05:43 PM

Hello,

I have the following code to insert a line, populate the cells and then filter the cells in a-z order. This works but every time I run it the whole range of data gets put onto another sheet but when I exit the workbook and come back in its normal. I can only think it a glitch as my code is messy. Any idea?

Code:

' INSERT NEW CARRIER AND RATES FOR FUEL AND LOLO
With ActiveWorkbook.Worksheets("Rates Matrix")
.Range("I5:M5").Insert (xlDown)
.Range("I5").Value = AddSupplier.TextName.Value
.Range("J5").Value = AddSupplier.TextFuel.Value
.Range("K5").Value = AddSupplier.Text20ft.Value
.Range("L5").Value = AddSupplier.Text40ft.Value
.Range("M5").Value = AddSupplier.Text40hc.Value
End With

'FILTER THE TABLE A - Z TO PUT NEW SUPPLIER IN ORDER
With ActiveWorkbook.Worksheets("Rates Matrix").Range("I2").AutoFilter
    ActiveWorkbook.Worksheets("Rates Matrix").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rates Matrix").AutoFilter.Sort.SortFields.Add Key _
        :=Range("I2:I28"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Rates Matrix").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

With ActiveWorkbook.Worksheets("Rates Matrix").Range("I2").AutoFilter
End With

AddSupplier.Hide