Vba code to combine 2 columns into a new column

[jamesdean1379]

Hey guys I have been trying to find a code that does what i want it to. I need to combine 2 columns into 1 new column and add text in between the two inputs. Probably not explaining too well so i have post pictures below showing what i am looking for.

Before

AFTER

I need it to make a new column and combine columns A and C and put ~UN inbetween them like above.

Any help with this will be greatly appreciated.

 

[Gavin T]

Something like this should do the trick:

Sub Combine()

    Dim lLastRow As Long

    lLastRow = Range("A" & Rows.Count).End(xlUp).Row

    Columns("B").Insert
    Range("B1") = "Combine"
    Range("B2:B" & lLastRow).FormulaR1C1 = "=RC[-1] & ""~NU"" & RC[1]"

End Sub

 

[jamesdean1379]

THANK YOU SO MUCH! This works perfect!!

 

[Gavin T]

Great!