Add a new Excel Workbook and copy from original Workbook

Sub NewWorkbook()

' Add a new Workbook and copy between the workbooks

Dim xl As Excel.Application
Dim wb, w, cwb As Excel.Workbook
Dim ws1, ws2 As Excel.Worksheet
Dim i As Integer

Set xl = Application
Set cwb = ThisWorkbook
Set wb = xl.Workbooks.Add
Set ws1 = cwb.Sheets(1)
Set ws2 = wb.Sheets(1)

For i = 1 To 2
    ws2.Cells(i, 1).Value = ws1.Cells(i, 1).Value
Next i

End Sub