Sub iConcatenate()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("H2:H" & iLastRow).ClearContents
    For i = 2 To iLastRow
      For j = 1 To 7
        If Cells(i, j) <> "-" And Cells(i, j) <> "" Then
          Cells(i, 8) = Cells(i, 8) & Cells(i, j) & ";"
        End If
      Next
        If Cells(i, 8) <> "" Then
          Cells(i, 8) = Left(Cells(i, 8), Len(Cells(i, 8)) - 1)
        Else
          Cells(i, 8) = "-"
        End If
    Next
End Sub