This single code line should also work...
Code:Cells(Application.Max(1, Cells(Rows.Count, "A").End(xlUp).Row - 499), "A").Resize(500, 6).Copy Range("H1")
This single code line should also work...
Code:Cells(Application.Max(1, Cells(Rows.Count, "A").End(xlUp).Row - 499), "A").Resize(500, 6).Copy Range("H1")
Last edited by bakerman; 04-14-2014 at 05:22 AM. Reason: Code tags added for readability
Bookmarks