So that I can award more points, I am breaking down my requirements into several parts.  Please refer to the attached Excel file.

Part A:
I would like a macro which:
-      Formats the numbers in Cols E to H as numbers with 1000 separator (,) and  no decimal places
-      Inserts column totals in Cols E to H
-      Inserts cross-totals in Col I

Thanks.
Book1.xlsx
###### Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Analyst Assistant Commented:
I wasn't 100% sure what you meant by cross-sums but I've added a formula in each row of I that sums columsn E to H.

Also, I wasn't sure if you wanted that sum to also include the row with the column sums, if you do use this.
``````    Set rng = Range("I2:I" & LastRow+1)

``````

Anyway, here's the code.
``````Dim rng As Range
Dim LastRow As Long

LastRow = Range("A" & Rows.Count).End(xlUp).Row

Set rng = Range("E2:H" & LastRow)

rng.NumberFormat = "#,000"

Set rng = Range("E" & LastRow + 1 & ":H" & LastRow + 1)

rng.Formula = "=SUM(R2C:R[-1]C)"

Set rng = Range("I2:I" & LastRow)

rng.Formula = "=SUM(E2:H2)"
``````
0

Experts Exchange Solution brought to you by