Use a formula within a macro to extract data and copy down x number of rows

I'm trying to use 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 would like this formula to be copied down, an X number of rows, which can be dependant on the row count in Column B. Im certain Im not putting this formula into the macro correctly, but Im new to this and any help would be greatly appreciated.

Please Login or Register  to view this content.

Thanks in advance.

Thanks,
Ray