Remove multiple Carriage Returns - macro to clean cell contents

I have been doing a lot of searching and found a macro that got me very close to my needs.

For this one, I have to select the cell, or cells manually and it puts the cleaned up text the way I like to see it.
I have tried to figure out how to define a specific range Column P, Rows 15 to 100 - but I am struggling with the code.

Here is the closer solution, if someone can help...

Sub test()
Dim r As Range
With CreateObject("VBScript.RegExp")
.Global = True
For Each r In Selection
.Pattern = "\n+(\s+)"
r.Value = .Replace(r.Value, vbLf & vbLf)
Next
End With
End Sub

Thanks...
~Lloyd

Lloyd,
Welcome to the forum!
Please take moment to read forum's rules.
You need to use code tags with your code.

You can have a fixed range or dynamic one.

Please Login or Register  to view this content.

Or you could use this line which selects from P15 down until the last row on column P

Please Login or Register  to view this content.

Please Login or Register  to view this content.

This doesn't make sense to me.

Can you show me what you have and the result that you want?

AB33,

Your help is greatly appreciated. I used the fixed range solution you provided, and I will keep the dynamic solution noted for future work.
Thanks again...