Calculate non-empty rows for concatenation

or

Sub snb()
 For Each ar In Sheets("Multiple paste Values").Columns(2).SpecialCells(2).Areas
  ar.Cells(ar.Cells.Count).Offset(, 2) = Join(Application.Transpose(ar), ",")
 Next
End Sub