Split single Excel file into multiple files

Hi Everyone,

I have to admit my experience/knowledge with macros in Excel is very limited.

Anyway here is what I have and what I would like to try and do via a Macro:

What I have:
I have an Excel 2010 file that has 1 Column and approx. 9,000 Rows of Data.

What I would like to do:
I'm looking for a macro that will break apart the 9,000 rows into 300 rows per each file.

Example:

Orginial.xls contains Row 1-9,000
Rows 1-300 moved to NewFile1.XLS
Rows 1-300 deleted from Original.xls
Rows 1-300 moved to NewFile2.XLS
Rows 1-300 deleted from Original.xls
Rows 1-300 moved to NewFile3.xls
etc...

After it's all said and done:
Orginial.xls = empty
NewFile1.xls - NewFile30.xls created with 300 rows each.

Hopefully this makes sense

Thanks for your time.

Sub splitxls()
lastcell = Range("A1").SpecialCells(xlLastCell).Row
numrows = 300
numfile = Int(lastcell / numrows) + 1
For j = 1 To numfile
    Range("A1:A" & numrows).Cut
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
    "D:\DATI\prova\" & j & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
    ActiveWorkbook.Close
    Range("A1:A" & numrows).Rows.Delete
Next
End Sub