Welcome to the community.
Here is an example of the code required to copy all of the table scripts from one data table to another, minus the Source table script.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
names=dt<<get table Script names;
remove from(names,1,1);
dt << Select Properties( names );
proplist = dt << Get Selected Properties();
dt2 = New Table( "Little Class" );
dt2 << Add scripts to table( proplist );
You would have to add this methodology to your Source script, or run it as a separate script to do what you are trying to do.
You can find details and examples of the different elements in this script in the Scripting Index under the Help pull down menu
Jim