Popular 2 tabelas usando o comando FOR em PL/SQL

cursor cCursorTal is
  select * 
    from  
    where;

    for  vcCursorTal in  cCursorTal LOOP
      insert into sua_tabela(campo1, campo2, campon)
          values (vccursortal.campo1, vccursortal.campo2, vccursortal.campon);
    end loop;

declare
  cursor cCursorTal is
    select * 
      from  
      where;
begin
    for  vcCursorTal in  cCursorTal LOOP
      insert into sua_tabela(campo1, campo2, campon)
          values (vccursortal.campo1, vccursortal.campo2, vccursortal.campon);
    end loop;
     commit
exception
  when others then
    Dbms_Output.Put_Line('Erro: '||sqlerrm);    
end;