I currently have the 2 formulas below
Bulk <p> </p> each paragraph:
Dim rCell As Range, spl As Variant, i As Long
For Each rCell In Selection
spl = Split(rCell, Chr(10))
For i = LBound(spl) To UBound(spl)
If spl(i) <> "" Then...