Sub Decaler()
Application.ScreenUpdating = False
Dim Derlg As Integer, i As Integer
Derlg = Range("A65536").End(xlUp).Row
For i = 6 To Derlg Step 5
Range("A" & i & ":A" & i + 4).Cut
Range("B" & i - 5).Select
ActiveSheet.Paste
Rows(i & ":" & i + 4).Delete
Next i
Range("A1").Select
End Sub