Sub report()
Application.ScreenUpdating = False
For col = 61 To 84
If Cells(Rows.Count, col).End(xlUp).Row > derlin Then derlin = Cells(Rows.Count, col).End(xlUp).Row
Next
For n = 1 To derlin
For col = 61 To 84
If Cells(n, col) <> "" Then Cells(n, 60) = Cells(n, 60) & Cells(n, col) & ";"
Next
Next
For n = Cells(Rows.Count, 60).End(xlUp).Row To 1 Step -1
If Cells(n, 60) <> "" Then
Cells(n, 60) = Left(Cells(n, 60), Len(Cells(n, 60)) - 1)
Else
Rows(n).Delete
End If
Next
Application.ScreenUpdating = True
End Sub