Sub FMTWSM()
'
' Macro1 Macro
' Macro recorded 5/21/2017 by Pete
'

'
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "___"
    Selection.CurrentRegion.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
    Cells.Find(What:="___", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Range("A121").Select
    Selection.EntireRow.Insert
    Range("A120").Select
    Selection.CurrentRegion.Select
    Selection.EntireRow.Delete
    Range("B1").Select
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=INT(RC[-2]*1000)"
    Range("B3").Select
    Selection.EntireRow.Insert
    Range("A4").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Range("C4").Select
    ActiveSheet.Paste
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C4").Select
    Selection.CurrentRegion.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.EntireColumn.Delete
    Selection.EntireColumn.Delete
    Range("A3").Select
    Selection.EntireRow.Delete
    Range("A1").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A1").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Receiver;"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Date/Time;"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "RFUnit;dBm"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "Owner;"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "ScanCity;"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "ScanComment;"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "ScanCountry;"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "ScanDescription;"
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "ScanInteriorExterior;"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "ScanLatitude;"
    Range("A11").Select
    ActiveCell.FormulaR1C1 = "ScanLongitude;"
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "ScanName;Converted"
    Range("A13").Select
    ActiveCell.FormulaR1C1 = "ScanPostalCode;"
    Range("A15").Select
    ActiveCell.FormulaR1C1 = "Frequency Range [kHz];start;end;"
    Range("A16").Select
    ActiveCell.FormulaR1C1 = "Frequency;RF level (%);RF level"
    ChDir "\\Mac\Home\Desktop"
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
End Sub