copy selected rows vba

[benjamint]

Hi,

I want to copy some selected rows to another sheet.
I.E. Starting with cell AP1 and going down with CTRL+SHIFT+down arrow until he finds the next "X". And then select all these rows, and copy to sheet2.

What I have right now is (But it's not working):

Range("AP1").Select
Range(Selection, Selection.End(xlDown)).Select
Rows(ActiveCell.Row).Select
Selection.COPY

Sheets2.Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select

 

[Andrew Poulsom]

Does it work if you change?

Rows(ActiveCell.Row).Select
Selection.COPY

to?

Selection.EntireRow.Copy

 

[VoG]

Try

Dim LR As Long
LR = Range("AP1").End(xlDown).Row
Rows("1:" & LR).Copy Destination:=Sheet2.Range("A1")

 

[Kyle123]

cross posted here: Copy selected rows vba