Consolidate rows with a macro based on lack of value in certain columns

[rockthecasbah121]

I'm working on fixing a spreadsheet for work with very little VBA knowledge. I've got the original sheet working again but now would like to add a consolidation button for times when the outputted table is too long.

This is an example of the output table from the macro:

I'd like to output to a new sheet all of this same data, but for rows where an entry has no value in columns A-E or G-H, I'd like to consolidate in to one row and total up the amounts in columns F,I,J.

I've seen something similar on this message board, but it needs tweaked just a little bit for my situation I believe, and I couldn't figure out the tweaking... Any help is much appreciated.

 

[MickG]

You're welcome.
The new last row number after running the code is the value of the variable "c".
So, the next row after that is "c+1", so for column "A" this is:- cells(c+1,1) or for the entire data row is:- cells(c+1,1).resize(,12)

 

[rockthecasbah121]

Something about that isn’t working for me. Would c+1 be dependent on where the consolidated row gets placed? Sometimes the formatting ends up on the totals row but sometimes it ends up two rows below the consolidated row but above the totals row still.

 

[MickG]

Not really, the value of "c" at the end of the code would equate to the last row of data in the array "Ray", but remember the data is placed, starting in row 4 , so you would have to add 4 to get the actual last "row +1"

Maybe:-
Try this at the bottom of the code to get the last row of data in column "A" + one row
The

Dim Lst as long
Lst = Range("A" & Rows.Count).end(xlup).row+1