the white spaces again
Sub ptwo()
Dim p!, i!, k(), e
With Sheets("Raw Data").Range("a1", Range("a" & Rows.Count).End(xlUp)).Resize(, 1)
        e = .Value
    p = .Rows.Count
 
 ReDim k(UBound(e, 1), 1)
For i = 1 To UBound(e, 1)
  k(i, 1) = Trim(e(i, 1))
 Cells(i, 1) = k(i, 1)
Next
End With
End Sub