Need help with loop, concatenate and trim in Excel, VBA

[snb]

Sub M_snb()
  sheet1.columns(1).replace "  "," "
  sheet1.columns(1).replace "'","Equipment'"
End Sub