Sub abc()
Dim j as Long, i as Long
j = 2
for i = 2 to 100 step 3
cells(i,"H").Resize(1,6).copy _
worksheets("Sheet2").Cells(j,1)
j = j + 1
Next
end sub

--
Regards,
Tom Ogilvy


"excel_lent" wrote
in message ...

Hi all,

This is my first post. I am new to excel macros. Please help me.

I need to copy from range(H2:M2) in sheet1 and paste it into range(A2)
in sheet2, then go to range(H5:M5), copy that and paste in range(A3)
and so on..

How do i increment the range in a For loop?

Thank you,

ET.


--
excel_lent
------------------------------------------------------------------------
excel_lent's Profile:
http://www.excelforum.com/member.php...o&userid=31738
View this thread: http://www.excelforum.com/showthread...hreadid=514524