divide excel sheet

Hi hemnahmed
Welcome to the forum
can you use a VBA solution?

Option Explicit
Sub testp()
Dim LastRow As Double
Dim RowRng As Double
Dim xNum As Double
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
RowRng = Application.WorksheetFunction.Even(LastRow / 5)
For xNum = 4 To 1 Step -1
Range("A" & RowRng * xNum & ":A" & RowRng * (xNum + 1)).Cut Destination:=Range(Choose(xNum, "B1", "C1", "D1", "E1"))
Next
End Sub