Maybe something like

Sub test2()
Dim i as long
Dim rng As Range

Set rng = Range("A1:D1")
Set rng = rng.Resize(2, rng.Columns.Count) ' A1:D2

For i = 3 To 12 Step 3
rng.Offset(i, 0).Value = i
Next

End Sub

Regards,
Peter T

"Carla101" wrote in
message ...

Well, I don't actually want the size of the range to change.
I just want the range to shift down the rows, but always covering the
same 'n' number of rows. Anyway, I'll look further into it, thanks for
your help.


--
Carla101
------------------------------------------------------------------------
Carla101's Profile:
http://www.excelforum.com/member.php...o&userid=30346
View this thread: http://www.excelforum.com/showthread...hreadid=500057