居中select多行

我使用VBA在Excel中创build了大量报表。 我隐藏了使用过的列之后的所有列。 我想要一些行在可见列的中心。

例如，假设报表的最后一列在列I中，我隐藏J：IV（在Excel 2003中）。 我希望报告的一部分与A列中的数据集中在A：I中间。 我可以做到这一点使用VBA没有循环通过每一行？

我想最好的方法来获得最后一个可见的列是.End（xlRight）（纠正我，如果我错了，请）。