Sub CreateTree()
Set DestSht = Sheets.Add(After:=Sheets(Sheets.Count))
DestSht.Name = "Tree"
Sheets("Data10").Columns("O:O").Copy Destination:=DestSht.Range("D1")
Sheets("Data10").Columns("C:C").Copy Destination:=DestSht.Range("E1")
Sheets("Data10").Columns("J:J").Copy Destination:=DestSht.Range("G1")
Application.CutCopyMode = False
End Sub
Sub Createnew()
Sheets("Data10").Range("J1").AutoFilter
Set DestSht = Sheets.Add(After:=Sheets(Sheets.Count))
DestSht.Name = "Winners"
Sheets("Data10").Columns("A:A").Copy Destination:=DestSht.Range("A1")
Sheets("Data10").Columns("B:B").Copy Destination:=DestSht.Range("B1")
Sheets("Data10").Columns("D:D").Copy Destination:=DestSht.Range("C1")
Sheets("Data10").Columns("E:E").Copy Destination:=DestSht.Range("D1")
Sheets("Data10").Columns("G:G").Copy Destination:=DestSht.Range("E1")
Sheets("Data10").Columns("J:J").Copy Destination:=DestSht.Range("F1")
Sheets("Data10").Columns("K:K").Copy Destination:=DestSht.Range("G1")
Sheets("Data10").Columns("P:P").Copy Destination:=DestSht.Range("H1")
Application.CutCopyMode = False
Sheets("Data10").Range("J1").AutoFilter
End Sub
Sub SaveWorksheetsAsCsv()
Dim ws As Worksheet, wb As Workbook
For Each ws In ThisWorkbook.Worksheets
ws.Copy 'creates a new workbook
With ActiveWorkbook
.SaveAs "C:\Users\xxx\" & ws.Name & ".csv", xlCSV
.Close False
End With
Next ws
End Sub
Open in new window