COPY AND PASTE MACRO

[Guest]

I want to record a macro that will copy cells B4:J7 and paste them starting at B10. Skipping two rows from the bottom of what I am copying. However, everytime I run the macro I want it to skip 2 rows two past. so the first time i run it it would paste in B10. The second time I run it would paste at B16 and so on and so forth. Any thoughts

 

[Don Guillett]

does this help
x=cells(rows.count,"b").end(xlup).row+2
range("b4:j7").copy range("b" & x)

--
Don Guillett
SalesAid Software
(e-mail address removed)

I want to record a macro that will copy cells B4:J7 and paste them

starting at B10. Skipping two rows from the bottom of what I am copying.
However, everytime I run the macro I want it to skip 2 rows two past. so the
first time i run it it would paste in B10. The second time I run it would
paste at B16 and so on and so forth. Any thoughts?

 

[gigglefritz]

Try...

Sub CopyRows()
Range("B4:J7").Copy Destination:= _
Range("B" & Rows.Count).End(xlUp).Offset(3, 0)
End Sub

-----Original Message-----
I want to record a macro that will copy cells B4:J7 and

paste them starting at B10. Skipping two rows from the
bottom of what I am copying. However, everytime I run the
macro I want it to skip 2 rows two past. so the first
time i run it it would paste in B10. The second time I
run it would paste at B16 and so on and so forth. Any
thoughts?

 

[Mike]

Dim rwct As Integer

Sub Copy+2 ()
rwct = Cells(Rows.Count, "B").End(xlUp).row
Range("B4:J7").Copy Destination: = Range("B" & rwct + 3)
End Sub

Mike

I want to record a macro that will copy cells B4:J7 and paste them

starting at B10. Skipping two rows from the bottom of what I am copying.
However, everytime I run the macro I want it to skip 2 rows two past. so the
first time i run it it would paste in B10. The second time I run it would
paste at B16 and so on and so forth. Any thoughts?