Good afternoon,
The code I'm using merges Columns into the first column selected, however they are all merged with a space for each column merged, can someone edit the code so it will do the same but without spaces, thanks
Dim a, b Dim i As Long With Intersect(ActiveSheet.UsedRange, Selection) a = .Value ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) For i = 1 To UBound(a, 1) b(i, 1) = Application.Trim(Join(Application.Index(a, i, 0))) Next i .Value = b .EntireColumn.AutoFit End With