На основе данных с листа Excel сформировать тело письма Outlook

Sub Макрос1()
    Columns("A:A").Select
    Selection.Copy
    s = "Лист XX"
    On Error Resume Next
    Application.DisplayAlerts = 0
    Worksheets(s).Delete:
    Set wsh = Sheets.Add(After:=Worksheets(Sheets.Count))
    wsh.Name = s
    Application.DisplayAlerts = 1: On Error GoTo 0
    ActiveSheet.Paste
End Sub

...
SendMail_Outlook(ByVal lc_Recipients As String, ByVal lc_Subject As String, ByVal Body As String, ByVal lc_files As String) As Boolean
...

Sub Макрос1()
dim body     
Columns("A:A").Select
    Selection.Copy
    
    Set lc_body ' = Информация из буфера обмена, которую мы скопировали ранее.

Sub CopyFromClip1()
    Dim x$
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        x = .GetText(1)
    End With
    MsgBox x
End Sub

'Option Explicit
 
Sub Макрос1()
 
Dim s$, f&
    With ActiveSheet
        For f = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
            s = s & .Cells(f, 1) & vbCrLf
        Next
    End With
    body = s
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim x$
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        x = .GetText(1)
    End With
    MsgBox x
End Sub

Sub For_Body()
    Dim wbkX As Workbook                'Рабочая книга
    Dim shtX As Worksheet               'Рабочий лист
    Dim rngBody As Range                'Диапазон для экспорта в переменную
    Dim rngCell As Range                'Диапазон для цыкла
    Dim strBody As String               'Переменная для Body
    
    Set wbkX = Workbooks("1.xlsx")      'Рабочая книга "1.xlsx"
    Set shtX = wbkX.Sheets(1)           'Рабочий лист (первый)
    wbkX.Activate
    Set rngBody = Selection             'Выделенный диапазон
    
    For Each rngCell In rngBody.Cells
        strBody = strBody & " " & rngCell.Value
    Next rngCell
    
    MsgBox strBody
End Sub