macro with relative ranges

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

PS. Please be more specific in your feedback ('produces an error' ??; in which line ??)