Пример для FireBird 1.5
Ты можешь создать хранимую процедуру, внутри которой на основе выборки из таблицы можешь сгенерировать скрипт на создание таблицы а потом его выполнить
Например

SQL = 'CREATE TABLE tab_new (';

for select NAME_FIELD, TYPE_FIELD
from tab_old
into :NAME, :TYPE_FLD
DO
BEGIN
if (:TYPE_FLD=3) THEN
BEGIN
SQL=SQL || :NAME || ' VARCHAR(100),';
END
if (:TYPE_FLD=4) THEN
BEGIN
SQL=SQL || :NAME || ' BIGINT,';
END
END

SQL=SQL || ' USER_NAME VARCHAR(100))';

execute statement SQL;