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!