Sub q()
     Application.Workbooks.Open "c:\Проба\Пробный.xls"
     Application.ActiveWorkbook.Worksheets("ПробныйЛист").Select
     Application.ActiveWorkbook.Worksheets("ПробныйЛист").Copy after:=Application.ActiveWorkbook.Sheets( 3 )
End Sub

Private Sub Worksheet_Change

Sub CommandButton1_Click()
    Dim wb As Workbook, wbFullName As String, wbName As String
    wbFullName = "C:\test\zakaz.xls"
    wbName = Dir(wbFullName)
    If wbName <> "" Then
        On Error Resume Next
        Set wb = Workbooks(wbName)
        On Error GoTo  0 
        If Not wb Is Nothing Then wb.Close
        Kill wbFullName
    End If
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("Бланк заказов").Copy
    ActiveWorkbook.SaveAs wbFullName
    ActiveWorkbook.Close
End Sub

Sub CommandButton1_Click()
    Dim wb As Workbook, wbFullName As String, wbName As String
    wbFullName = "C:\test\zakaz.xls"
    wbName = Dir(wbFullName) 'читаем путь к файлу
    If wbName <> "" Then ' если не пустота значит файл существует
        On Error Resume Next
        Set wb = Workbooks(wbName) ' присваиваем обьктной переменной ссылку на книгу
        On Error GoTo  0 
        If Not wb Is Nothing Then wb.Close 'если ссылка есть значит книга открыта и перед удалением её надо закрыть
        Kill wbFullName 'удаление файла
    End If
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("Бланк заказов").Copy ' если у метода "Copy" не прописаны параметры, то метод копирует лист в новую книгу
    ActiveWorkbook.SaveAs wbFullName ' сохраняем вновь созданную книгу со скопированным листом методом "сохранить как"
    ActiveWorkbook.Close 'закрываем сохраненую книгу
End Sub

ThisWorkbook.Sheets("Бланк заказов").Copy

ThisWorkbook.Sheets("Бланк заказов").Copy

Workbooks("имя книги в которой лежит нужный лист").Sheets("Бланк заказов").Copy

Dim xlApp As New Excel.Application
Dim xlWb As Workbooks
Set xlWb = xlApp.Workbooks.Open("путь и имя файла")
xlWb.Sheets("Бланк заказов").Copy

Private Sub CommandButton1_Click()
    Call myCopy
End Sub

Private Sub CommandButton1_Click()
    Dim wb As Workbook, wbFullName As String, wbName As String
    wbFullName = "C:\test\zakaz.xls"
    wbName = Dir(wbFullName) 'читаем путь к файлу
    If wbName <> "" Then ' если не пустота значит файл существует
        On Error Resume Next
        Set wb = Workbooks(wbName) ' присваиваем обьктной переменной ссылку на книгу
        On Error GoTo  0 
        If Not wb Is Nothing Then wb.Close 'если ссылка есть значит книга открыта и перед удалением её надо закрыть
        Kill wbFullName 'удаление файла
    End If
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("Бланк заказов").Copy ' если у метода "Copy" не прописаны параметры, то метод копирует лист в новую книгу
    ActiveWorkbook.SaveAs wbFullName ' сохраняем вновь созданную книгу со скопированным листом методом "сохранить как"
    ActiveWorkbook.Close 'закрываем сохраненую книгу
End Sub