If you're trying to concatenate the data from the cell try using & operator. The cell may contain a numeric value which would cause an error if a numeric value is trying to be added to a string. You can also use CStr if you like.
In other words
CellData = CellData & CStr(Trim(ActiveCell(i, j).value)) & " "