Format Column Until Adjacent Cell Is Empty

I am writing a macro that will format my table automatically. My table will start with 3 columns all containing data on a 1 to 1 relationship (I.e. there are no empty cells until the end of the file). Initially these are columns "A", "B", and "C" but they shift to columns "B", "C", and "D" during execution of this macro. However, my macro formats the table with seven addtional column headings which will eventually contain data though I need to format them prior to populating them. I know my column range is always going to be ("A:J") but my row range will vary on a weekly basis. That being the case, I need to know how to format the cells in these empty columns up to the number of rows containing data in the existing populated columns. For exapmle I would like the macro to format the table in the following way:

1. Insert new column "A" preserving the data in the existing column "A" shifting it to cloumn "B" and set Cell "A1"'s value = "#" --> I have already coded this portion.

2. Set Cell "A2"'s value = 1 --> I have already coded this portion.

3. Set Cells ("A1:J1")'s values = to desried column header title modifying the three pre-existing column headers while aligning the data to center --> I have already coded this portion.

4. Set all column headers to bold 10pt font and shade the headers row ("A1:J1")--> I have already coded this portion.

5. Set pre defined column widths for columns "A:J". --> I have already coded this portion.............