Simply need to copy the following range *excluding* the totals row, which is
always the bottom row.
Here's one of numerous attempts that doesn't work:

Range("ak1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Resize(Rows.Count - 1, Columns.Count).Select

Any assistance would be greatly appreciated.
Thanx.
- Mike