Attribute VB_Name = "Module1"
Sub Conversion()
    a = 1
    b = 1
    r = 0
    Do While Cells(b, 1).Value <> "# Table" And b < 1000
        b = b + 1
    Loop
    
    If b = 1000 Then r = MsgBox("Macro will not run under current data conditions.", vbExclamation, "Invalid Download!")
    If r <> 0 Then End
    Rows("1:" & 1 + b).Delete shift:=xlUp
    Do While Left(Cells(a, 1).Value, 5) <> "# ---"
        a = a + 1
    Loop
    Rows(a & ":1000").ClearContents
    Columns("B:B").Delete shift:=xlToLeft
    Columns("C:Z").ClearContents
    Cells(1, 3).FormulaR1C1 = "Cost"
    Cells(1, 4).FormulaR1C1 = "ROI"
    Cells(2, 4).FormulaR1C1 = "=IF(ISERROR((RC[-2]-RC[-1])/RC[-1]),"""",(RC[-2]-RC[-1])/RC[-1])"
    Cells(2, 4).AutoFill Destination:=Range("D2:D" & a - 1), Type:=xlFillDefault
    Range("B2:B" & a - 1).NumberFormat = "$#,##0.00"
    Range("B2:B" & a - 1).Font.Color = 39168
    Range("C2:C" & a - 1).NumberFormat = "$#,##0.00"
    Range("C2:C" & a - 1).Font.Color = 255
    Range("D2:D" & a - 1).NumberFormat = "0.00%"
    Range("D2:D" & a - 1).FormatConditions.Add(xlCellValue, xlLess, "=0").Font.Color = -16776961
    Range("D2:D" & a - 1).FormatConditions.Add(xlCellValue, xlGreater, "=0").Font.Color = -16738048
    Columns("A:B").EntireColumn.AutoFit
    Cells(2, 3).Select

End Sub