macro with relative ranges

And if you prefer a macro:

Sub easy()
  With sheets(1).usedrange
    sq=.columns(1).resize(,4)
    for j=1 to ubound(sq) step 4
      sq(j,2)=sq(j+1,1)
      sq(j,3)=sq(j+2,1)
      sq(j,4)=sq(j+3,1)
    next
    .columns(1).resize(,4)=sq
    .columns(2).specialcells(4).entirerow.delete
  End With
End sub