ProlificCSVMacro1.bas

Attribute VB_Name = "Prolific01"
Sub Prolific01()
Attribute Prolific01.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Prolific01 Macro
'

'
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    ActiveWindow.SmallScroll ToRight:=1
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("my_prolific_submission_history[[#Headers],[Column1]]").Select
    ActiveCell.FormulaR1C1 = "Time Taken"
    Range("F2").Select
    Range("my_prolific_submission_history[Time Taken]").FormulaR1C1 = _
        "=IF(RC[-1]<>"""", RC[-1]-RC[-2], """")"
    Columns("F:F").Select
    Selection.NumberFormat = "[h]:mm:ss"
    Columns("B:B").Select
    Selection.Cut
    ActiveWindow.SmallScroll ToRight:=2
    Range("I1").Select
    Selection.Insert Shift:=xlToRight
    Columns("H:H").Select
    Selection.TextToColumns Destination:=Range( _
        "my_prolific_submission_history[[#Headers],[Reward]]"), DataType:=xlDelimited _
        , TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="$", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("J2").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("B:B").Select
    Selection.Cut
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.SmallScroll ToRight:=2
    Range("J1").Select
    Selection.Insert Shift:=xlToRight
    Columns("I:I").Select
    Selection.TextToColumns Destination:=Range( _
        "my_prolific_submission_history[[#Headers],[Bonus]]"), DataType:=xlDelimited _
        , TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="$", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    Range("my_prolific_submission_history[[#Headers],[Column1]]").Select
    ActiveCell.FormulaR1C1 = "Reward $"
    Range("my_prolific_submission_history[[#Headers],[Column2]]").Select
    ActiveCell.FormulaR1C1 = "Bonus $"
    Range("my_prolific_submission_history[[#Headers],[Reward]]").Select
    ActiveCell.FormulaR1C1 = "Reward £"
    Range("my_prolific_submission_history[[#Headers],[Bonus]]").Select
    ActiveCell.FormulaR1C1 = "Bonus £"
    Range("K2").Select
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "£2.50"
    Cells.Replace What:="£", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _
        , FormulaVersion:=xlReplaceFormula2
    Range("G:G,I:I").Select
    Range("my_prolific_submission_history[[#Headers],[Bonus £]]").Activate
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("H:H,J:J").Select
    Range("my_prolific_submission_history[[#Headers],[Bonus $]]").Activate
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
    Columns("G:J").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "0"
    Columns("G:J").Select
    Selection.Columns.AutoFit
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    Columns("G:G").Select
    Selection.Cut
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("my_prolific_submission_history[[#Headers],[Started At]]").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.ScrollColumn = 2
    Columns("I:I").Select
    Selection.Cut
    Range("my_prolific_submission_history[[#Headers],[Started At]]").Select
    Selection.Insert Shift:=xlToRight
    Columns("I:I").Select
    Selection.Cut
    Range("my_prolific_submission_history[[#Headers],[Started At]]").Select
    Selection.Insert Shift:=xlToRight
    Columns("J:J").Select
    Selection.Cut
    Range("my_prolific_submission_history[[#Headers],[Started At]]").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.ScrollColumn = 1
    Cells.Select
    Selection.Columns.AutoFit
    Range("A2").Select
End Sub