COPY AND PASTE MACRO

S

Steven

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
 
D

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
[email protected]
Steven said:
I want to record a macro that will copy cells B4:J7 and paste them
Click to expand...
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?
 
G

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
Click to expand...
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?
 
M

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
Steven said:
I want to record a macro that will copy cells B4:J7 and paste them
Click to expand...
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?
 
Top