macro to number occurrences of a specific text string in a column

I have a task that I would like to automate with a macro. It is illustrated in the attachment. Column A shows BEFORE. In this example, the cells contain text strings. In the adjacent blank column I would like to enumerate each occurrence of "father" consecutively, starting with 1. The hoped-for output is shown in columns CD. An alternative version of the output is shown in column E (in place of D). Either one is equally good for me.

The macro should ask for the string to be enumerated, as this will not always be the same string when I work on different sheets. The input for the macro will be selected cells (always from a single column).

Thanks in advance for help.

Russ

Worked like a charm, thank you! I will mark this thread solved.