Sub ExportIAS()
'
' Code cleaned up by Julian Gareis info@sprechlaut.de, thanks
'
' Note: preview the IAS frequencies in format MASTER LIST REPORT
' select all and copy
' then run this macro
'
    Dim lastrow As Range
    Dim last As Integer
    Application.ScreenUpdating = False
    Cells.Select
    Selection.Clear
    Range("A1").Select
    ActiveSheet.Paste
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveWindow.SmallScroll Down:=-120
    ActiveWindow.SmallScroll ToRight:=1
    ActiveWindow.SmallScroll Down:=-3
    ActiveWindow.SmallScroll ToRight:=2
    ActiveWindow.SmallScroll Down:=-51
    ActiveWindow.SmallScroll ToRight:=-3

    ActiveSheet.Range("A1", "H15").Delete
    Set lastrow = ActiveSheet.Cells.Find("Items printed*")
    last = lastrow.Row
    ActiveSheet.Range(Rows(last), Rows(last + 15)).Select
    Selection.Delete
    Range("D2:D5000").NumberFormat = "0.000"
    ActiveSheet.Rows.AutoFit
    Cells.Select
    Selection.Columns.AutoFit
    Selection.CurrentRegion.Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("F2") _
        , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("A2").Select
    Application.ScreenUpdating = True

End Sub