Sub TVMacro()
Application.ScreenUpdating = False
' TVMacro Macro
'
'Headings
Range("A1").Value = "Date"
Range("B1").Value = "Time"
Range("C1").Value = "Symbol"
'Column A into American Date Format
Columns("A:A").NumberFormat = "mm/dd/yy"
'Column B into Time Format
Columns("B:B").NumberFormat = "[$-x-systime]h:mm:ss am/pm"
With Columns("C:C")
'Product Change
.Replace What:="EURO/GBP", Replacement:="RP", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="FTSE", Replacement:="Z", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Light Sweet Crude Oil (Phy)", Replacement:="CL", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Corn", Replacement:="ZC", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="ICE Brent Crude", Replacement:="BRN", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Mini-S&P500", Replacement:="ES", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Mini-Nasdaq100", Replacement:="NQ", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="LR", Replacement:="R", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="LL", Replacement:="L", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="AUD", Replacement:="6A", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="GBP", Replacement:="BP", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="CAD", Replacement:="6C", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="EURO-FX", Replacement:="EC", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="NZD", Replacement:="6N", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="AUD/JPY", Replacement:="AJY", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="LEAN HOG", Replacement:="HE", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Natural Gas(Phy)", Replacement:="NG", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="LIVE CATTLE", Replacement:="LE", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Soybeans", Replacement:="ZS", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="SoybeanMeal", Replacement:="ZM", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="SoybeanOil", Replacement:="ZL", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Wheat", Replacement:="ZW", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="NYBOT Coffee C", Replacement:="KC", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="NYBOT Cotton No 2", Replacement:="CT", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="COFFEE 409", Replacement:="RC", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="COMEX Silver", Replacement:="SI", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="ICE ECX CFI Futures", Replacement:="ECF", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="COMEX Copper", Replacement:="HG", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="S&P500Micro", Replacement:="MES", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="CME Bitcoin", Replacement:="BTC", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="FEXD", Replacement:="FEXD", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Natural Gas (Phy)", Replacement:="NG", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="NASDAQ100 Micro", Replacement:="MNQ", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="E-MICRO COMEX Gold JUN21", Replacement:="RTY JUN21", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="E-MICRO COMEX Gold", Replacement:="MGC", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="COMEX Gold", Replacement:="GC", LookAt:=xlPart, SearchOrder:=xlByRows
'Dates into TVUE Format from Stellar Format
.Replace What:="Jan2", Replacement:="F", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Feb2", Replacement:="G", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Mar2", Replacement:="H", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Apr2", Replacement:="J", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="May2", Replacement:="K", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Jun2", Replacement:="M", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Jul2", Replacement:="N", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Aug2", Replacement:="Q", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Sep2", Replacement:="U", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Oct2", Replacement:="V", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Nov2", Replacement:="X", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="Dec2", Replacement:="Z", LookAt:=xlPart, SearchOrder:=xlByRows
End With
'Remove Spaces
Range("C2:C1400").Replace " ", ""
With Columns("F:F")
'Removing the "-" in Crops/Bonds
.Replace What:="-6", Replacement:=".75", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="-4", Replacement:=".5", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="-2", Replacement:=".25", LookAt:=xlPart, SearchOrder:=xlByRows
.Replace What:="-0", Replacement:=".0", LookAt:=xlPart, SearchOrder:=xlByRows
End With
Application.ScreenUpdating = True
End Sub