Macro to select cells and save as html

HI guys,
I am hoping that some one can help me with this. Have been looking everywhere and cant seem to get the right answer.

Here is what I have:

Sheet1 has several rows of data then one empty row. Then I have several rows of data and an empty row. This continues for about 100-150 times (this varies each week)

Here is what I am trying to do.

I need the macro to be able to select from A1 to the last row:column that has data so that I can apply borders (keep in mind that last row:column will always not be the same cell since number of rows varies).

Then I would like to save the selection as html file and file name should be whatever value I have on a1 (so if I have Jan012011 in A1, it needs to be Jan012011.htm)

I would greatly appreciate if anyone could help me with that. I have found couple of vbscript to select the cells, however because I have empty rows, those only selects first set of rows. I need the script to go all the way to the last cell that has any data.

Thanks for your help