how to Merge columns

[abberyfarm]

Hi,

How could I merge these 3 columns into one column?

Excel Workbook
	A	B	C
1		5
2	1
3		6
4			9
5		6
6	2
7		6
Sheet2

Thanks

John

 

[GopalaKrishnaJ]

Sub testMerge()

Dim rngData As Range
Dim intItem As Integer

Application.DisplayAlerts = False
Set rngData = [A1:C7]
For intItem = 1 To rngData.Rows.Count
rngData.Cells(intItem, 1) = Application.WorksheetFunction.Sum(rngData.Rows(intItem))
rngData.Rows(1).Merge
Next intItem
Application.DisplayAlerts = True

End Sub