The macro is called PLXO extract; it is meant to reorganize data that is pasted into excel from another system. The error is created by a certain type of transaction which is categorized in the "Activity" column. Typically, activity types are one word "BOT" "SOLD" "JNLED", but one activity type, "SJ +" causes the macro to fail because there is a space between the "SJ" and the "+". I need to write in some code that creates an IF function to account for this situation. Firewalls wont let me attach to this thread. I have copy/paste a sample of the data that is pated to excel prior to the macro being run. I apologize for the inconvenience. Just copy/paste into your own excel window and run a text to colums, delimited with "space" checkmarked- uncheck "tab"- and finish (be sure to add a blank column to the left of the data and a blank row above to make it work properly--- e.g. data should start on the "B2" cell prior to macro) . Sorry again, I know it is a hassle. THANK YOU

Here is the VBA code:

Sub PLXO()
'
' PLXO Macro
'
' Keyboard Shortcut: Ctrl+p
'
    Range("Q9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-15]=""_"",DATE(RC[-12],RC[-14],RC[-13]),"""")"
    Range("R9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-16]=""_"",RC[-12],"""")"
    Range("S9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-17]=""_"",RC[-12],"""")"
    Range("S10").Select
    ActiveWindow.SmallScroll ToRight:=3
    Range("T9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-18]=""_"",IF(RC[-10]="""",RC[-11],RC[-10]),"""")"
    Range("T10").Select
    ActiveWindow.SmallScroll ToRight:=3
    Range("U9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-19]=""_"",IF(R[1]C[-19]=""JNLED"",""JNLED"",IF(R[1]C[-19]=""SOLD"",""SOLD"","""")),"""")"
    Range("U10").Select
    ActiveWindow.SmallScroll ToRight:=2
    Range("V9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-20]=""_"",IF(R[1]C[-8]="""",IF(R[1]C[-9]="""",IF(R[1]C[-10]="""",IF(R[1]C[-11]="""",IF(R[1]C[-12]="""",IF(R[1]C[-13]="""","""",R[1]C[-13]),R[1]C[-12]),R[1]C[-11]),R[1]C[-10]),R[1]C[-9]),R[1]C[-8]),"""")"
    Range("V10").Select
    ActiveWindow.SmallScroll ToRight:=2
    Range("W9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-21]=""_"",IF(R[1]C[-9]="""",IF(R[1]C[-10]="""",IF(R[1]C[-11]="""",IF(R[1]C[-12]="""",IF(R[1]C[-13]="""",IF(R[1]C[-14]="""","""",R[1]C[-15]),R[1]C[-14]),R[1]C[-13]),R[1]C[-12]),R[1]C[-11]),R[1]C[-10]),"""")"
    Range("W10").Select
    ActiveWindow.SmallScroll ToRight:=2
    Range("X9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-22]=""_"",IF(R[2]C[-9]=""CVR"",R[2]C[-8],IF(R[2]C[-10]=""CVR"",R[2]C[-9],IF(R[2]C[-11]=""CVR"",R[2]C[-10],IF(R[2]C[-12]=""CVR"",R[2]C[-11],IF(R[2]C[-13]=""CVR"",R[2]C[-12],""""))))),"""")"
    Range("Q9:X9").Select
    Selection.AutoFill Destination:=Range("Q9:X2604"), Type:=xlFillDefault
    Range("Q9:X2604").Select
    Range("T2599").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveWindow.SmallScroll Down:=-36
    Columns("Q:X").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("A:P").Select
    Range("P1").Activate
    Selection.ClearContents
    Range("F16").Select
    ActiveWindow.LargeScroll ToRight:=1
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    Columns("Q:X").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
    ActiveSheet.Paste
    Range("K19").Select
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Date"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Activity"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Shares"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Cost"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Subsequent Activity"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Last Updated by:"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Last Update Date"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Covered?"
    Rows("1:1").Select
    Selection.Font.Bold = True
    Selection.Font.Underline = xlUnderlineStyleSingle
    Range("D5").Select
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("A:A").Select
    Selection.Replace What:="", Replacement:="A", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("O21").Select
    ActiveWindow.LargeScroll ToRight:=1
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    Columns("Q:X").Select
    Selection.ClearContents
    Range("X17").Select
    ActiveWindow.LargeScroll ToRight:=-1
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$X$2604").AutoFilter Field:=1, Criteria1:="A"
    Rows("2:2").Select
    Range("C11").Select
    ActiveWindow.SmallScroll Down:=-24
    ActiveSheet.Range("$A$1:$X$2604").AutoFilter Field:=1, Criteria1:="A"
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("E29").Select
    ActiveSheet.Range("$A$1:$X$6").AutoFilter Field:=1
    Rows("1:1").Select
    Selection.AutoFilter
    Columns("A:A").Select
    Selection.NumberFormat = "m/d/yyyy"
    Columns("C:C").Select
    Selection.NumberFormat = "0.000"
    Columns("D:D").Select
    Selection.NumberFormat = "0.00"
    Columns("G:G").Select
    Selection.NumberFormat = "m/d/yyyy"
    Cells.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("E11").Select
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
End Sub
G A I N A N D L O S S S U M M A R Y 1/10/2014
PLXSN44 D E L E T E L O T S 15:16:43

ACCOUNT: 123-456789 PLX POS: 0 RTA POS: 0

TRADE DT TXN QUANTITY PRN/OPT PREMIUM PRICE NET AMT
REF NMBR TYP DESC CUSIP/SYM UPDT DATE USER ID
_ 10.000 10.00 2013 SJ + 10 0 100 1000
SOLD GOOGLE INC-CL A GOOG 1/1/1900 SYSTEM
CS BUY COST ADJ. 0 SELL COST ADJ. 0 CVR C
_ 10.000 10.00 2013 SJ + 10 0 100 1000
SOLD GOOGLE INC-CL A GOOG 1/1/1900 SYSTEM
CS BUY COST ADJ. 0 SELL COST ADJ. 0 CVR C
_ 10.000 10.00 2013 SJ + 10 0 100 1000
SOLD GOOGLE INC-CL A GOOG 1/1/1900 SYSTEM
CS BUY COST ADJ. 0 SELL COST ADJ. 0 CVR C
_ 10.000 10.00 2013 SJ + 10 0 100 1000
SOLD GOOGLE INC-CL A GOOG 1/1/1900 SYSTEM
CS BUY COST ADJ. 0 SELL COST ADJ. 0 CVR C


F1=HELP F3=EXIT F7=BKWD F8=FWD F12=CANCEL F14=DELETE