concatenating of multiple columns with multi rows in VBA macro code

[Vasant bangalore]

Hi , how can write VB code in macros to get concatenate Country of origin, port of export and port of destination all 3-coulmns in in one column as shown in result column below

Country Of Origin	Port of Export	Port of Destination		Result
INDIA	NEW DELHI	SOUTHAMPTON		INDIANEW DELHISOUTHAMPTON
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	NEW DELHI	SOUTHAMPTON		INDIANEW DELHISOUTHAMPTON
INDIA	NEW DELHI	SOUTHAMPTON		INDIANEW DELHISOUTHAMPTON
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY
INDIA	CHENNAI	LONDON GATEWAY		INDIACHENNAILONDON GATEWAY

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Vasant()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Offset(, 4).Value = Evaluate(.Columns(1).Address & "&" & .Columns(2).Address & "&" & .Columns(3).Address)
   End With
End Sub

 

[Vasant bangalore]

Sub Vasant() With Range("A2", Range("A" & Rows.Count).End(xlUp)) .Offset(, 4).Value = Evaluate(.Columns(1).Address & "&" & .Columns(2).Address & "&" & .Columns(3).Address) End With End Sub

thank you its working, great !

 

[Fluff]

You're welcome & thanks for the feedback.