Made this code...

Trying to work out why I get "Method PasteSpecial of Object Range Failed" Runtime error 1004

It gets as far as the pastespecial line.

What I want the macro to do is very simple:
-select data from the active cell down to the last cell in the column
-cut that data
-move 3 rows down, same column
-paste the data
-move 1 row down
-repeat until the active cell is empty (it gets to the bottom of the data)

PLEASE PLEASE PLEASE HELP

Sub Macro2()
'
' Macro2 Macro
'Dim Start
'Dim i As Integer

ActiveCell.Name = "start"
'Cells.Range(Start, ActiveCell.End(xlDown)).Count = "i"
'Cells.End(xlDown).Select
'ActiveCell.Name = "end"
Do
Range(ActiveCell, ActiveCell.End(xlDown)).Select
With Selection.Cut
End With
ActiveCell.Offset(3, 0).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)


End Sub