Leerzeichen rechts weg

Sub Leerzeichen_links_weg()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
Cells(i, 1) = LTrim(Cells(i, 1).Value)
Next i
End Sub

Welchen nutze ich aber für Leerzeichen rechts weg?
Gruß und Danke vorab
TOM