Concatenate 2 columns into 1 column with seperator

[STEEL010]

Hi There,

I'm trying to concatenate 2 columns ("A") and ("B") into 1 column ("A") with an ";" separator via VBA.
I have already have a code that doing stuff already and I want to add the concatenate function in to it, can somebody help?

all have to comeback into column A.


Sheets("Sheet2").Copy
Sheets("Sheet2").Range("A2:F101").Copy
Sheets("Sheet2").Range("A2").PasteSpecial Paste:=xlPasteValues
Sheets("Sheet2").Range("A1:H1").Delete Shift:=xlUp
Sheets("Sheet2").Range("C1:F101").Delete Shift:=xlToLeft
here I want the concatenate function


Greetings,
Steel010

 

[Fluff]

The only thing I have done is add one line of code to delete col B.
Have you changed the code in any way?