Sub main()
' --------------------------------
    Dim ikey, text$, arr(), i&
    Const PATH_IN$ = "Папка плучатель\"
    Const PATH_OUT$ = "Папка отправитель\"
    Dim pathold$, pathnew$
    Dim objFSO As Object
    Dim NOT_COPYED_OBJECT$
' --------------------------------
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    arr = ActiveSheet.[a1].CurrentRegion.Value
    On Error Resume Next
    For i = 2 To UBound(arr, 1)
        For Each ikey In Split(arr(i, 2), "|")
            pathnew = PATH_IN & arr(i, 1) & Application.PathSeparator & ikey
            pathold = PATH_OUT & ikey
            objFSO.copyfile pathold, pathnew
            If Err.Number <> 0 Then NOT_COPYED_OBJECT = NOT_COPYED_OBJECT & ikey & ";": Err.Clear
        Next ikey
        NOT_COPYED_OBJECT = NOT_COPYED_OBJECT & vbNewLine
    Next i
    MsgBox "Не скопированные объекты: " & vbNewLine & NOT_COPYED_OBJECT
End Sub

Sub main()
    Application.DisplayAlerts = False
    Do While Sheets.Count > 7
        Sheets(Sheets.Count).Delete
    Loop
    Application.DisplayAlerts = True
End Sub

Sub main()
    Dim arr(), ikey, srow&, sarr$(), j&
    arr = [a1].CurrentRegion.Value
    For Each ikey In arr
        i = i + 1
        ikey = Replace(ikey, Chr(10), " ")
        sarr = Split(ikey, " ", 3)
        For j = 0 To UBound(sarr)
            sarr(j) = Trim(Replace(sarr(j), " ", ""))
        Next j
        Cells(i, "b").Resize(, 3).Value = sarr
    Next ikey
End Sub

.Body = sBody 'Текст сообщения

 .htmlbody = sBody & sTblBody

With Какая_то_Книга_Какой_то_Лист
    'код
End With

With Worksheets("Расчет")
fr = .Cells(1, 1).End(xlUp).Row + 1 'первая пустая строка на листе, в который вставляем
  If cb = 1 Then
    .Cells(fr, 1).Value = frmKust1.Value 'перенос в ячейку значения из ComboBox
    .Cells(fr, 3) = rcNow1.Value  'перенос в ячейку значения из TextBox1
    .Cells(fr, 4).Value = rcTo1.Value   'перенос в ячейку значения из TextBox2
      If FlowSwitcherForm.cat_fr_1 = True Then Cells(fr, 2) = "F"  'перенос в ячейку значения Checkbox1
      If FlowSwitcherForm.cat_sh_1 = True Then Cells(fr, 2) = "D"   'перенос в ячейку значения Checkbox2
      If FlowSwitcherForm.cat_alc_1 = True Then Cells(fr, 2) = "A"   'перенос в ячейку значения Checkbox3
      If FlowSwitcherForm.cat_of_1 = True Then Cells(fr, 2) = "OF"   'перенос в ячейку значения Checkbox4
      If FlowSwitcherForm.cat_z_1 = True Then Cells(fr, 2) = "Fr"   'перенос в ячейку значения Checkbox5
  End If
End With