Custom formatting using either Macro or VB script

Hi Paul,

The name of the thread of is now changed to reflect my issue. I have also attached a copy of an example.

hi, xander208, option, run code "test". The types are considered to be consecutive as in example file.

can you post sample file containing exact data layout of your real-life file. I will add code to it together with comments

Uploading a new copy. This is the exact format, though some of the naming conventions on the "types" are different. The rest is basically the same formats im working with.

please check attachment, run code "test", the code has been competely changed, comments added

please note, the file should be saved before running the code

looks like that does what i need. only other question I have is is there any way to rename the macro from 'test' to something different?

yes, you can give it a different name (w/o spaces), goto Tools - Macros - select macro "test", press Change.
The code name is in the following line at the top

Sub test()

I renamed the file and saved it, the code runs as expected as the file name is not hardcoded in it. There are 2 options that are checked before running the code to avoid errors:
1)

If Range("b1") <> "Product Description" Then Exit Sub

makes sure the sheet the code would run has ""Product Description" in B1 cell
2)

If IsError(Application.Match("* Total", ActiveSheet.Columns(1), 0)) Then Exit Sub

checks for word "Total" existing on th sheet.
If you feel it's not required, you can comment them out by putting ' sign at the start of the row. But when you run the code on a sheet with different data layout (different header, table of data located say from Y2 cell) it would result in error.

Ok, looks like everything is working. Was able to make another macro to work in conjunction with the script. I really appreciate the help!

if you are satisfied with the help provided and there are no more outstanding issues, please mark the thread as Solved:

Click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Edit button will not appear -- ask a moderator to mark it.