Macro to combine text from multiple cells?

Sub concat()
Dim c As Range, txt As String
For Each c In Selection
    txt = txt & c.Value & "; "
Next c
Selection.ClearContents
txt = Left(txt, Len(txt) - 2)
Selection(1).Value = txt
End Sub

Sub ConcatenateCellsToActiveCell_Semicolon()
    Dim rngCell As Range
    Dim rngActive As Range
    Dim strTemp As String
 
    Set rngActive = Selection
    strTemp = ""
 
    For Each rngCell In rngActive
        strTemp = strTemp & rngCell.Value
        strTemp = strTemp & "; "
        'rngCell.Value = ""  'Uncomment to clear selected, non-active cells
    Next
    ActiveCell.Value = Left(strTemp, Len(strTemp) - 2)
 
    Set rngActive = Nothing
End Sub

Sub ConcatenateSelection_SemiColon_ToClipboard()

    Dim rngCell As Range
    Dim strTemp As String
    Dim strSeparator As String
    
    'Early Binding
    'Dim objMyData As New DataObject
    'Use Tools | References to add reference
    '"Microsoft Forms 2.0" (FM20.DLL) (or later version)
    
    'Late Binding for New DataObject
    Dim objMyData As Object
    Set objMyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    'Set objMyData = CreateObject("MSFORMS.DataObject") 'Logical, but doesn't work

    strTemp = ""
    strSeparator = ";"
    
    For Each rngCell In Selection
        strTemp = strTemp & rngCell.Value
        strTemp = strTemp & strSeparator
        'rngCell.Value = ""  'Uncomment this to clear other source cells
    Next
    objMyData.SetText Left(strTemp, Len(strTemp) - Len(strSeparator))
    objMyData.PutInClipboard

End Sub