copy range and formats to new workbook

[Ole]

Hi,

How do i modify this code below to copy 4 different sheets in same
workbook
to another workbook and 4 new sheets, the new workbook is called
"C:\MyFolder\Newfile.xls"
all with the same criteries as down below.

Private Sub CommandButton1_Click()
Workbooks.Add
Application.Activeworkbook.Worksheets(1).Name = "Other"
With Application.ActiveWorkbook.Worksheets("Other")
me.cells.copy Destination:=.Range("A1")

.Range("34:65536").EntireRow.Delete
.Range("V:IV").EntireColumn.Delete
Application.DisplayAlerts = False
.Parent.SaveAs "C:\MyFolder\Newfile.xls"
Application.DisplayAlerts = True
End With
End Sub

AHA
Ole