macro to merge a range of selected cells

[JASON38967]

I need a macro to merge a range of selected cells in a column into one cell with a space between each value.

 

[Joe4]

This should work:

Sub MyMerge()
 
    Dim cell As Range
    Dim CombinedEntry As String
 
'   Loop through selection and build string and erase values in cells being merged
    For Each cell In Selection
        CombinedEntry = CombinedEntry & cell.Value & " "
        cell.ClearContents
    Next cell
 
'   Remove last space from string
    CombinedEntry = Left(CombinedEntry, Len(CombinedEntry) - 1)
 
'   Merge cells and populate entry
    Selection.Merge
    ActiveCell.Value = CombinedEntry
 
End Sub