Bir modüle ekleyip çalıştırın.Önce tarih ve saat formatınka klasör oluşturulur.
Sonra gerekli işlemler yapılır.Aktarılacak sayfa adı Sayfa olduğu varsayılmıştır.

Sub Aktar()



    Dim i As Integer

    Dim klasor As String

    Dim BuSayfa As Worksheet

    Dim say As Integer

    Set BuSayfa = ThisWorkbook.Sheets("Sayfa1")

    klasor = ThisWorkbook.Path & "\" & Format(Now, "dd_mm_yyyy hh_mm_ss")

    

    MkDir klasor

    

    Application.ScreenUpdating = False

    For i = 1 To 2000 Step 60

        BuSayfa.Range("A" & i).Resize(60, 17).Copy

        Workbooks.Add

        Range("A1").PasteSpecial xlPasteAll

        Application.DisplayAlerts = False

        ChDir klasor

        say = say + 1

        Workbooks(2).SaveAs Filename:=i & "-" & i - 1 + 60 & " satýr aralýðý " & say & ".xls", FileFormat:=xlExcel8

        Workbooks(2).Close True

        Application.DisplayAlerts = True

    Next

    MsgBox "Bitti", vbInformation, "Bitti"

    Application.ScreenUpdating = True

    Application.CutCopyMode = False

    Set BuSayfa = Nothing

    say = Empty: i = Empty

    klasor = vbNullString

End Sub