mrprofit, for posterity, it would be great if you could share your solution. Here's my solution

Code:
    With Range("A" & Rows.Count).End(xlUp)
        .Cells(Application.Max(-498, 2 - .Row)).Resize(Application.Min(500, .Row), 6).Copy Range("H1")
    End With