On Jun 20, 8:25*pm, "Snake Plissken"
wrote:
I'll look on that next week but it works with sample data I put. Strange....

Hi Snake,

After exploring more scenarios, I discovered copy/paste VBA based on
the following modified codes, is workable in 1st scenario ( ie where
copy range starts from A1:A1103 of which filtered cells are from
A2:A1103) and not workable in 2nd scenario ( ie where copy range
starts from A3:A97 of which filtered cells are from A22:A1103 and
cells A1 to A3 are not filtered) where it stops at cell A3 after it
hits the code " ActiveSheet.Paste "

Sub Copy_Paste()

Sheets("GL-LG").Select
Range("A1").End(xlDown).Select
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range("A1").End(xlDown).Select
ActiveCell.Offset(10, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Any idea on the above problem ?, thanks


Regards
Len