This should work for you. Let me know if you have any more issues with this. I am only copying 15 colums, change that if you need to.
Option Explicit
Sub ColumnToSheets()
Dim LR As Long, Rw As Long, Sz As Long, valRng As Range
Sz = Application.InputBox(300, Type:=1)
If Sz = 0 Then Exit Sub
Application.ScreenUpdating = False
With ActiveSheet
LR = Cells(Rows.Count, 1).End(xlUp).Row
For Rw = 1 To LR Step Sz
Range(Cells(Rw, 1), Cells(Rw + (Sz - 1), 15)).Copy
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "rows " & Rw & " - " & Rw + Sz - 1
ActiveSheet.Paste
Sheets(1).Select
Next Rw
.Activate
End With
Application.ScreenUpdating = True
MsgBox ("Done")
End Sub