Sub ......()
'
'
'
' Keyboard Shortcut: Ctrl+q
'
Columns("B:C").Select
Selection.Copy
Columns("F:F").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("F:F").Select
Selection.Cut
Application.CutCopyMode = False
Selection.Copy
Columns("D
").Select
ActiveSheet.Paste
Columns("C:C").Select
ActiveSheet.Paste
Columns("E:E").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yyyy"
Columns("B:B").Select
Selection.NumberFormat = "HH:mm:ss"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Time"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Open"
Range("D1").Select
ActiveCell.FormulaR1C1 = "High"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Low"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Close"
Range("G1").Select
ActiveCell.FormulaR1C1 = "Volume"
Range("G1").Select
CopyToCSV
End Sub