Sub MoveCellData()
For i = 7 To 70 Step 7
Set r = ActiveSheet.Range("a" & i)
Set s = r.Offset(-3, 4)
s.Value = r.Value
r.Value = ""
Next i
End Sub


--
C01d
------------------------------------------------------------------------
C01d's Profile: http://www.excelforum.com/member.php...o&userid=34422
View this thread: http://www.excelforum.com/showthread...hreadid=549098