Selecting cell that contains text and merging without data loss.

I am trying to come up with a code that will search through a column (H).
This column contains mostly numbers, but due to the method in which i must import this data some times it gets screwy and puts in a line of text.

So when searching through Column H I want to find cells that contain text instead of numbers and merge these to the cell to the left (same row, column G) without losing the data, and then delete the cell in column H and shift the rest of the row left.

This will help me get all of my cells lined up properly.


So I have the code for merging the cells, I am mostly having trouble with getting it to select the cell with Text instead of numbers and the cell to the left of that cell so it can merge them... Here is the code I have for merging.


Dim outputText As String
Const delim = " "

On Error Resume Next

For Each cell In Selection
outputText = outputText & cell.Value & delim
Next cell
With Selection
.Clear
.Cells(1).Value = outputText

End With



Any help would be great!

It is possible to do through other means, but rather than having to copy a column, merge a column by hand, delete a column, id much rather it just be part of the script I am running already

Getting an error in the last line. Application-Defined or Object-Defined

Here is a small sample of the sheet.

Thanks!

I have tried this on the sample as well and it works, I don't know what is killing it on the main sheet. The only difference in the main sheet vs. the sample is that the main sheet contains some rows that have nothing in any column except for A, and of course the overall size of course.

If I step in to it no errors because it keeps cycling through the first part, it's just the last line that is giving an error.

It is definitely bugging out on lines where there is only input in Column A and no others. Attached a new sample.

I was able to figure out the problem and fix it by putting in On Error Resume Next. Thanks!