I want to create a macro to remove the space After the String in the range. Tried Trim and doesn't do anything [duplicate] - excel

Question

This question already has answers here:
How to remove spaces from an entire Excel column using VBA?
(3 answers)
Closed 2 years ago.
I want to remove the extra spaces after the text "Denver Health " into "Denver Health" for the range in column A.
input:
Column A
"Denver Health Hospital "
"Pueblo Hospital "
output:
Column A
"Denver Health Hospital"
"Pueblo Hospital"
I have tried that code but it removes all the spaces
Sub SpaceKiller()
Worksheets("Sheet2").Columns("A").Replace _
what:=" ", _
Replacement:="", _
SearchOrder:=xlByColumns, _
MatchCase:=True
End Sub
Another attempt was
Sub trim()
Dim r As String
r = RTrim(Range("A2:A"))
End Sub

Answer 1

This will get the trailing spaces..
Sub TrimTrailingSpaces()
Dim LR As Long 'Use Long as Integer can only handle 32,767
Dim myRng As Range 'I am going to name the used range
Dim ws As Worksheet 'Declare worksheet as variable
Dim cll As Range
Set ws = ThisWorkbook.Worksheets("Sheet2") 'Want to be specific on the worksheet used
LR = ws.Cells(Rows.Count, 1).End(xlUp).Row 'Find the last row in Col A. Do not include the whole column of over 1 million cells
Set myRng = ws.Range(ws.Cells(2, 1), ws.Cells(LR, 1)) 'Declare the range used
For Each cll In myRng 'cll is a Cell in a Collection of Cells in a Range that we defined
cll = RTrim(cll) 'Looping through, modify each cell
Next cll 'Go to the next Cell
End Sub

Answer 2

You can write own function to delete all additional spaces from string. allow only one space
Function Remove2Spaces(text As String) As String
Dim i_Len As Integer
Dim ReturnText As String
i_Len = Len(text)
For i = 1 To i_Len
If Mid(text, i, 1) = " " Then
If Mid(text, i + 1, 1) = " " Then
text = Mid(text, 1, i) & Mid(text, i + 2)
i = i - 1
End If
End If
Next i
Remove2Spaces = text
End Function
to get result place inside sub like below
sub Test()
MsgBox Remove2Spaces(ActiveSheet.Range("A3"))
end sub