Custom VBA code for making more commands

[S_S_SS]

Hello every one 
I have to repeat some commands in auto cad to make Excel sheet (Bill of Quantity) 
I record what i do in a video and want some to help me making that in a VBA code or lisp
I'll explain my case 
I have constant layers in all drawings and these are the names of them {(main) S-Decking Slab , (main) S-Decking Drop , (main) S-Decking Beam , (secondary) S-Decking Slab , (secondary) S-Decking Drop , (secondary) S-Decking Beam ,Tubes & Client }

layers  {(main) S-Decking Slab , (main) S-Decking Drop , (main) S-Decking Beam , (secondary) S-Decking Slab , (secondary) S-Decking Drop , (secondary) S-Decking Beam } Include dynamic blocks that have blocks inside them  and i want to use "Burst" command to get the blocks inside and make blocks inside in the layer of my dynamic block 

And layer {Tubes}  Includes multi lines and i can use "Explode" command to get lines 

And layer {Client}  Includes A Poly line that i want to get area and perimeter of it  

and i have some different layers that changed from drawing to another and they include some blocks that i want to get (Bill of Quantity) also .. 

I got  a lisp that freeze all layers in the drawing except current and i used it in the video to quickly select and make what i need 

i move what i select to make check on my drawing  quickly to me 

and then i make "Overkill" in all the drawing except {Tubes} layer  Because it became lines and have small distance and will be deleted if i use  "Overkill" on it .... 

then i use  "DATA EXTRACTION" and i want the VBA code select what i selected in my video even the arrangement of columns  i Have custom properties of my drawings and want VBA code or the lisp select it also 

and finally i want the excel sheet that save as  the same of drawing file name and save beside this drawing ..

and this is the link of my (drawing &  video )

Thanks in advance