copy to new workbook
 

I created this code to copy info from one book to another. I need to change
it so that the information can be copied over into the new book because
currently it only copies over into the workbook "book2". can anyone help?
Here is my code:

Private Sub CommandButton20_Click()
Workbooks.Add
Windows("Product Calculator1.xls").Activate
Columns("A:D").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows("Product Calculator1.xls").Activate
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
range("F1").Select
Windows("Product Calculator1.xls").Activate
Columns("K:K").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
range("G1").Select
Windows("Product Calculator1.xls").Activate
Columns("N:N").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
range("H1").Select
Windows("Product Calculator1.xls").Activate
Columns("Q:Q").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
range("I1").Select
Windows("Product Calculator1.xls").Activate
Columns("R:R").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
range("J1").Select
Windows("Product Calculator1.xls").Activate
Columns("S:S").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
range("J1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Application.CutCopyMode = False
Windows("Product Calculator1.xls").Activate
range("S1").Select
End Sub

copy to new workbook
 

Suppose your current workbook is Book1.xls

You have another workbook open called Book2.xls with 1 worksheet Sheet1

Book1 being the active workbook

Range("A1:D200").copy

Workbooks("Book2").Sheets("Sheets1").Range("A1").P asteSpecial
Application.CutCopymode = False

' Contents of A1:D200 will be copied into the new workbook

HTH

Rgds
Raymond