How can I create a group of same columns in each table in a database i, Sql Server

Language: Layout:

create table a (id int not null identity(1,1))
create table b (id int not null identity(1,1), IsActive bit, IsBlocked bit, IsVerified bit)
create table c (id int not null identity(1,1), CreatedByDate datetime2(7), LastModifiedByDate datetime2(7));

create table #cols (ordinal int, column_name sysname, add_sql nvarchar(max))
insert into #cols values
 (1,N'IsActive',N'IsActive bit not null constraint [df_$schema_$table_IsActive] default (1)')
,(2,N'IsBlocked',N'IsBlocked bit not null constraint [df_$schema_$table_IsBlocked] default (1)')
,(3,N'IsVerified',N'IsVerified bit not null constraint [df_$schema_$table_IsVerified] default (0)')
,(4,N'CreatedByDate',N'CreatedByDate datetime2(7) not null constraint [df_$schema_$table_CreatedByDate] default sysdatetime()')
,(5,N'LastModifiedByDate',N'LastModifiedByDate datetime2(7) not null constraint [df_$schema_$table_LastModifiedByDate] default sysdatetime()')

declare @sql nvarchar(max);
;with cte as (
select 
    o.object_id
  , schema_name = s.name
  , table_name  = o.name
  , c.*
from sys.objects o
  inner join sys.schemas s
    on o.schema_id = s.schema_id
  cross join #cols c
where o.is_ms_shipped=0  
  and o.type = 'U' -- User Tables only
  and o.name in ('a','b','c') -- remove this line, it is for demo tables only
  and not exists (
    select 1
    from sys.columns i
    where i.object_id = o.object_id 
      and i.name = c.column_name collate Latin1_General_CI_AS) -- prevents collation mismatch if tempdb is a different collation
)
, code as (
select distinct
    alter_sql = N'alter table '+quotename(schema_name)+N'.'+quotename(table_name) 
  + N' add '+char(10)+'   '
  + stuff((
    select '  , '+replace(replace(add_sql collate Latin1_General_CI_AS -- prevents collation mismatch if tempdb is a different collation
       ,N'$schema',i.schema_name)
       ,N'$table',i.table_name
       ) +char(10)
  from cte i
  where cte.object_id = i.object_id
  order by i.ordinal
  for xml path (''), type).value('(./text())[1]','nvarchar(max)')
  ,1,3,'')+N';'
from cte
)
/*-- preview of code by table, can not execute the rest of the code with this option uncommented 
select * from code;
--*/

select @sql = stuff((
    select char(10)+alter_sql
    from code
    for xml path (''), type).value('(./text())[1]','nvarchar(max)')
  ,1,1,'');

select CodeGenerated = @sql;

exec sp_executesql @sql; --uncomment after reviewing code generation

insert into a default values; -- for demo tables only
select * from a;              -- for demo tables only

View schema
Execution time: 0,08 sec, rows selected: 3, rows affected: 6, absolute service time: 0,25 sec