Concatenate multiple row in single row-

I need function or macro code which is Concatente multiple cells in single cell.
i have attach sample workbook

Try this code

Option Explicit

Sub concatenate_rows()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Sheet1")
    .Rows(1).Insert
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        If .Range("A" & i - 1).Value <> "" Then
            .Range("A" & i - 1).Value = .Range("A" & i - 1).Value & " " & .Range("A" & i).Value
            .Rows(i).ClearContents
        End If
    Next i
    .Rows(1).Delete
End With

MsgBox "Done"

Application.ScreenUpdating = True

End Sub

Thank u
Arlu ance again...

it works Good Day

Hi,Jindon

thank for quick reply great

one more way:

Sub ConcantateFromColumnA()
'http://www.excelforum.com/excel-programming-vba-macros/898088-concatenate-multiple-row-in-single-row.html
'Author: MaczaQ 07-Feb-2013
  
  For Each ar In Columns(1).SpecialCells(xlCellTypeConstants).Areas
   Debug.Print ar.Address
   If ar.Cells.Count = 1 Then
    ar.Cells(1, 1).Offset(, 1).Value = ar.Cells(1, 1).Value
   Else
    ar.Cells(1, 1).Offset(, 1).Value = Join(Application.Transpose(ar.Cells), " ")
   End If
  Next ar
End Sub

Hi, MacazQ

Thanku working good