VBA to create specific named ranges and repeating process (Loop?) across columns

Dear VBA pros,

I am quite new to VBA but love how it simplifies tasks.

I have written a basic code (in Module 2) to help create named ranges based on the top row (highlighted cells). It doesnt seem to work and I was wondering if someone could help? I have attached the Excel file.

For example, the first named range should be "Revenues" and the cells that should be designated are C3 to F6. then I would like to repeat the process to the next set of data, the named range being "Selling Expenses", to cover cells G2 to J6. How can I loop this process till it reaches an empty cell?

Thanks very much.

V