VBA Error when copying filtered range excluding header

[MikeL]

Hello
Getting a compile error when running this piece of code..invalid or unqualified sequence
Attempting to exclude the header from a filtered range

Dim LR As Long
LR = Range("A" & Rows.Count).End(.xlUp).Row
Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Any suggestions?
Thanks,
Mike

 

[Peter_SSs]

Hello
Getting a compile error when running this piece of code..invalid or unqualified sequence
Attempting to exclude the header from a filtered range

Dim LR As Long
LR = Range("A" & Rows.Count).End(.xlUp).Row
Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Any suggestions?
Thanks,
Mike

Remove the red dot and try again.

 

[MikeL]

That did it. Thanks Peter.