vba code to copy charges code,their respective cells and sum their amount

I Have a workbook workings sheet

Need to copy a list of charges code at end of column F, G with charges value at end columns AA copy it to column AL to AM , autosum AM COLUMNS

the charges codes can be 3,4 ,5, 6 depending of po orders (on sheet only 2 shown as example)

however the code always start with F with a space before F

AND delete their respective positions

the workings sheet is dynamic as it may contains 100 to to 10000 rows of data

Dear Jean,

If the rows with charging codes are always at the end of the list, and the first row of Charging codes has an empty cell in column E, the following code wil work.

Please Login or Register  to view this content.

Succes and let me know if this helps.

Ton

Try

Please Login or Register  to view this content.

Ton and Jindon

Thank you

Hi Jindon

I noticed that the code looks a = Sheets("expected coding charges code").Cells(1).CurrentRegion.Value
But what I was looking for that the code look directly in the sheet workings column F and G.

the expected coding charges was a dummy of what charges may have.

So could you adjust the code

thnak you

Please Login or Register  to view this content.

Is this how you wanted?
Find blank(s) in the bottom col.E within the data range.

Please Login or Register  to view this content.