Fixing Bullet Lists with VBA Macro

Hello,
I'm compiling data and information from many Worksheets into one table, and some of the columns contain bullet lists, which have inconsistent formatting. I've created macros to trim those fields and remove all periods, but I'm having difficulty on the next step.

I need code to find each bullet that isn't on its own row, and put it on its own row. Please help.

Yes, here is an example of one of a field that needs to be fixed:

• Provide proper PPE to operators such as safety glasses with side shields, face shield, welding jacket • Portable GFCI • Inspect wheel for cracks / defects before use • Tongue guard in place and adjusted to within 1/4" of wheel • Tool rest adjusted to within 1/8" of wheel • Clear face guard in place over wheel Hot work permit for spark created work

I want to automate the process of putting each of those bullet points on its own line within the field.

We have a winner! Thank you very much!
I'm having difficulty figuring out which part of your code is making the double-space.
Some of the bullets were already on their own rows, and some were not. I'm assuming this is finding each bullet, and putting it on a new carriage return?
If so, would it work to just add Also clause after the first If?

Also, am I correct in assuming vbCrLf is a carriage return character that works similar to Chr(10) and Chr(13) used together?

Nevermind, Find/Replace does just fine.

If you're still willing to help, I have a couple more questions. There are another two problems I need to solve, and there is one thing I'm not seeing in this code.

First off, the other two problems. Some of the fields with the bullet lists in the columns I'm correcting do not use bullets. Some have numbers and some just used double spacing to separate items of their list. Those are the only two other formats I need to worry about. The number lists may run into double-digits.

The one thing I'm not seeing in the code is why the other two list formats are causing the macro to clear the contents of the field.

I combined your code with the code I was using to trim. Here's the macro I'm still trying to fix:

Sub CleanSpacesA()

Dim sht As Worksheet
Dim original_text() As String
Dim new_text As String
Dim lr As Long
Dim i As Long
Dim j As Long

Set sht = Worksheets("Sheet1")

lr = sht.Range("A" & Rows.Count).End(xlUp).Row 'replace with correct column

i = 1

For i = 1 To lr
With Range("A" & i) 'replace with correct column
.Value = WorksheetFunction.Trim(.Value)
End With
Next i

For i = lr To 2 Step -1
new_text = vbNullString
original_text = Split(sht.Range("A" & i).Value, "•") 'replace with correct column
For j = 1 To UBound(original_text)
If j < UBound(original_text) Then
new_text = new_text & "•" & original_text(j) & vbCrLf
Else
new_text = new_text & "•" & original_text(j)
End If
Next j
sht.Range("A" & i).Value = new_text 'replace with correct column
Next i
Set sht = Nothing

End Sub

Any advice?

Everything is working great. Thanks wizard man.