I have about 135 sets of data in an Excel spreadsheet. Each data set
is a range of 4 rows by 8 columns. The cell in the first row and 1st
column is always empty. For each data set I am trying to put all of
the data in the first row in 31 columns. What is the code to go to
the last cell in a column that has data before an empty cell. I am
trying to create a range of 3 rows by 8 columns and move the data to
the first row. Then I want to create a range of 2 rows by 8 columns
and move the data to the first row. Then I want to create a range of
1 row by 8 columns and move the data to the first row. I need to do
this about 135 times. It takes me more than an hour to do this with a
macro. Since macros do not loop I would like to write a VBA program
to do this with one mouse click.

Any help would be greatly appreciated. This is my first VBA project
in Excel. I have one reference book--Programming in Excel 2000 with
VBA by John Walkenbach. I use Excel 2003.

Steve G