while Inserir informação para todos resultados de um Select

[will_jdc 1]

Boa Tarde Pessoal estou com um probleminha.

 

Preciso Inserir informações em uma tabela(RPS) nessa tabela preciso inserir o LjaCod, Rpsnum, ClienteCod, Emissao, ValorRps. Porém não estou conseguindo fazer o select e passar por cada ClienteCod

 

Meu Código Abaixo

DECLARE @LinhaAtual INT
SET @LinhaAtual= 1
DECLARE @MaxRownum INT
SET @MaxRownum = (SELECT count(ClienteCod) FROM Orcamentos)
WHILE @LinhaAtual <= @MaxRownum
BEGIN 
   set @LinhaAtual += 1
   set @Rpsnum =+1
   set @ClienteCod = (select ClienteCod from (SELECT ROW_NUMBER() OVER(ORDER BY Clientecod desc) as Linha, ClienteCod from orcamentos where St = 'A' group by ClienteCod))
   set @ValorRps = (select Sum(TotalOrc) from Orcamentos where ClienteCod = @ClienteCod)
       
   insert into Rps(LjaCod,  Rpsnum, ClienteCod, Emissao, ValorRps) values (@LjaCod, @Rpsnum, @ClienteCod, @Emissao, @ValorRps)
   
END

Me deem um help quem conseguir entender .... Valeu ...