Inserir informação para todos resultados de um Select

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)

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