Try the following:

Public Function consolidate(rngConsolidate As range) As String
  Dim cell As range
  consolidate = ""
  For Each cell In rngConsolidate
     consolidate = consolidate & cell.Value & ";"
  Next
End Function

Check your other post, too.

Assuming the data is always in column A and the first blank cell is where
you want it to stop, the following code should do it

Public Sub consolidate()
  Dim intRowMarker As Integer, intCurrentRow As Integer, strConsolidation
As String, intCount As Integer
  intRowMarker = 1
  intCurrentRow = 1
  strConsolidation = ""
  Do
     For intCount = 1 To 50
        If (range("A" & intCurrentRow).Value = "") Then Exit For
        strConsolidation = strConsolidation & range("A" &
intCurrentRow).Value & ";"
        intCurrentRow = intCurrentRow + 1
     Next intCount
     range("A" & intRowMarker).Value = strConsolidation
     strConsolidation = ""
     intRowMarker = intRowMarker + 1
   Loop While (range("A" & intCurrentRow).Value <> "")
End Sub