Как в программу VB вставить код записанный из VBA Excel?

Option Explicit
Dim Ex As Excel.Application
Dim Tr As Long
Private Sub Command1_Click()
On Error Resume Next
Screen.MousePointer = vbHourglass
'Провера пользователя в общих свойствах системы
'например номер 17929-723-5873987-55698
'После чего программа работает дальше
'В противном случае закрывается
   Ex.Workbooks.Open App.Path & "\ME.xls"
   If Ex Is Nothing Then
    Set Ex = CreateObject("Excel.Application") 'Запускаем Excel
    Ex.Workbooks.Open App.Path & "\ME.xls"
   End If
 Ex.WindowState = xlMinimized
 Ex.Visible = True
  Command2.Enabled = True
  Command4.Enabled = True
  Command1.Enabled = False
Screen.MousePointer = vbDefault
End Sub
Private Sub Command2_Click() 'Включает таймер
Timer1.Interval = 1000
Tr = Val(2) * 60
  Command3.Enabled = True
  Command2.Enabled = False
End Sub
Private Sub Timer1_Timer()
'If Tr = 0 Then Cop
'Tr = Tr - 1
End Sub
Private Sub Command3_Click()
'Выключает таймер и выполнение "макроса"
  Command2.Enabled = True
  Command3.Enabled = False
End Sub
Private Sub Command4_Click() 'Сохранение и закрыттие Excel, выход из программы
Screen.MousePointer = vbHourglass
 Ex.Workbooks(1).Save
 Ex.Application.Quit
 Set Ex = Nothing
  Command1.Enabled = True
  Command2.Enabled = False
  Command3.Enabled = False
  Command4.Enabled = False
Screen.MousePointer = vbDefault
End
End Sub
Private Sub Cop()
'-----------------------------------------
'Как правильно написать код из макроса VBA
'-----------------------------------------
Screen.MousePointer = vbHourglass
    'Windows("ME.xls").Activate
    'Range("B2").Select
    'Selection.Copy
    'Range("B1").Select
    'ActiveSheet.Paste
    'Range("B3").Select
    'Application.CutCopyMode = False
    'Selection.Copy
    'Range("B2").Select
    'ActiveSheet.Paste
    'Range("B4").Select
    'Application.CutCopyMode = False
    'Selection.Copy
    'Range("B3").Select
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    '    :=False, Transpose:=False
    'Range("C1").Select
    'Application.CutCopyMode = False
Screen.MousePointer = vbDefault
End Sub

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    'создаем буфер
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    'получаем имя компьютера
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'показываем имя компьютера
    MsgBox strString
End Sub

Private Sub Command2_Click()
ActiveWorkbook.Sheets("Лист3").Activate
ActiveSheet.Cells(2, 2).Cut Destination:=Cells(1, 2)

Private Sub Command2_Click()
ActiveWorkbook.Sheets("Лист3").Activate
 
ActiveSheet.Cells(1, 2)=ActiveSheet.Cells(2, 2)

ActiveWorkbook.Sheets("Лист3").Activate

Set Ex = CreateObject("Excel.Application") 'Запускаем Excel
    Ex.Workbooks.Open App.Path & "\ME.xls"
    with ex
           .ActiveWorkbook.Sheets("Лист3").selected 
           
    end with

Dim mExcel As Object
Dim mapWorkBookOut As Object
Dim mWorkSheet As Object
 
 
 
Sub AddPriceToXLS()
On Error Resume Next
Dim i As Long
 
Set mExcel = CreateObject("Excel.Application")
после add в скобках путь к файлу или пустая строка ""
Set mapWorkBookOut = mExcel.Workbooks.Add(App.Path & "\Data\blanc_new.xlt") 'blanc.xlt
 
  'создание обьекта листа книги
  Set mWorkSheet = mapWorkBookOut.Sheets.Item(1) 
  mWorkSheet.Select
 
With frmZakaz.gridPozCena
For i = 0 To .Rows - 1
  If i < 13 Then
    mWorkSheet.Cells(i + 8, 2) = .TextMatrix(i, 0) 'íàçâàíèå ïîçèöèè
    mWorkSheet.Cells(i + 8, 4) = .TextMatrix(i, 1) 'ïðèçíàê ïðàâ.-ëåâ.
    mWorkSheet.Cells(i + 8, 6) = .TextMatrix(i, 2) 'êîëè÷åñòâî
    mWorkSheet.Cells(i + 8, 8) = .TextMatrix(i, 3) 'öåíà
    'mWorkSheet.Cells(i + 8, 9)=.TextMatrix(i,4)'ñóììà(ñ÷èòàåòñÿ øàáëîíîì ïî ôîðìóëå)
  ElseIf i >= 13 Then
    mWorkSheet.Cells(i + 8 - 13, 12) = .TextMatrix(i, 0) 'тут данные разных типов
    mWorkSheet.Cells(i + 8 - 13, 15) = .TextMatrix(i, 1) 'ïðèçíàê ïðàâ.-ëåâ.
    mWorkSheet.Cells(i + 8 - 13, 19) = .TextMatrix(i, 2) 'êîëè÷åñòâî
    mWorkSheet.Cells(i + 8 - 13, 25) = .TextMatrix(i, 3) 'öåíà
    'mWorkSheet.Cells(i + 8-13, 29)=.TextMatrix(i,4)'ñóììà(ñ÷èòàåòñÿ øàáëîíîì ïî ôîðìóëå)
  End If
Next i
End With
 
End Sub

With Form1.Picture1
  .left=1
  .top=1
  .height=300
  .width=300
  .picture=loadpicture("")
End With

   Set mExcel = CreateObject("Excel.Application")
   Set mapWorkBookOut = mExcel.Workbooks.Add(тут путь к твоему файлу excel) 
 
  'создание обьекта листа книги
  Set mWorkSheet = mapWorkBookOut.Sheets.Item(1)'тут выделяется лист книги по индексу, можно и по имени(навскидку не помню что-то типа .Sheets.Name("Имя листа")) 
  mWorkSheet.Select

mWorkSheet.cells(1,2)=mWorkSheet.cells(2,2)
mWorkSheet.cells(2,2)=""

'разрешаем документу вывестись на экран
  mExcel.Application.Visible = True
   'зачистка памяти от обьектов
   Set mExcel = Nothing
   Set mapWorkBookOut = Nothing

Sub Макрос1()
 
    Workbooks.Open Filename:="C:\temp\3.xls"
    Workbooks.Open Filename:="C:\temp\1.xls"
    Cells.Select
    Range("R1").Activate
    Selection.Copy
    ActiveSheet.Paste
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Windows("3.xls").Activate
    ActiveWorkbook.Close False
 
ля-ля-ля
ля-ля-ля
ля-ля-ля
   
    ActiveWorkbook.SaveAs Filename:="C:\temp\!ТОП" & "_" & Date & ".csv", FileFormat:=xlCSV, CreateBackup:= _
        False
End Sub