sayfa isimlerini ben 1,2,3,4 olarak aldım siz kendi dosyanızdaki isimleri verirsiniz.
Sub ODSYap_Tıkla()
Dim wkb As Workbook
'Adding New Workbook
Set wkb = Workbooks.Add
For x = 2 To 5
ThisWorkbook.Sheets("Sayfa" & x).Copy After:=wkb.Sheets(wkb.Sheets.Count)
Next x
wkb.SaveAs ThisWorkbook.Path & "\" & "dosya_Adı" & ".ods", FileFormat:=60
End Sub