Excel formula nested in Macro

Attempting to create a macro to insert a column (into column P), then paste the following formula '= Mid(O2, Find("-", O2) + 1, Find("^^", Substitute(O2, "-", "^^", 2)) - Find("-", O2) - 1)' into cell P2. This formula extracts the data between 2 hyphens. I then need this formula to be copied down an X number of rows, which can be dependant on the row count in Column B and pasted as values. I'm new to this and any help would be greatly appreciated.

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("P1").Select
ActiveCell.FormulaR1C1 = "Store Number"
Selection.Font.Bold = True
Range("P2").Select
ActiveCell.FormulaR1C1 = Mid(O2, Find("-", O2) + 1, Find("^^", Substitute(O2, "-", "^^", 2)) - Find("-", O2) - 1)
Range("P2").Select
Selection.Copy
Range("P2:P" & Range("B" & Rows.Count).End(3)(1).Row).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select

Thanks in advance,
Ray

This is your code.

Sub Macro13()
    LR = Range("A1").End(xlDown).Offset(1, 0).Row
    Columns("P:P").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("P2:P" & LR).FormulaR1C1 = _
        "= MID(RC[-1], FIND(""-"", RC[-1]) + 1, FIND(""^^"", SUBSTITUTE(RC[-1], ""-"", ""^^"", 2)) - FIND(""-"", RC[-1]) - 1)"
    Range("P2:P" & LR).Value = Range("P2:P" & LR).Value
End Sub

The first line tries to find your last row by looking down from A1 to find the first blank.
Change this so it matches your data.

Issue Solved. Your original code pasted the formula into one too many lines, so I tweaked it a bit and it worked like a charm.

    Sub Macro13()
    LR = Range("B1").End(xlDown).Offset(1, 0).Row
    Columns("P:P").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "Store Number"
    Selection.Font.Bold = True
    Range("P2:P" & Range("B" & Rows.Count).End(3)(1).Row).FormulaR1C1 = _
    "= MID(RC[-1], FIND(""-"", RC[-1]) + 1, FIND(""^^"", SUBSTITUTE(RC[-1], ""-"", ""^^"", 2)) - FIND(""-"", RC[-1]) - 1)"
    Range("P2:P" & LR).Value = Range("P2:P" & LR).Value
    Range("A1").Select
    End Sub

Thank you mehmetcik

Ray