Sub macro9()
Sheets("TCD").Select
Range("J5:AD5").Select
Selection.ClearContents
Range("H5").Select
Selection.TextToColumns Destination:=Range("J5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array( _
Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Sheets("LM A SITES").Select
End Sub