Não sei se entendi, mas experimente:
Acrescente a linha:
wrksheet.Cells(i + 2, "G") = NUMREG
logo após SOMANDOTUDO = wrksheet.Cells(1, 5).Value ou autECLSession.autECLPS.SendKeys "[ENTER]"

Reinaldo boa noite,

Muito obrigado pela ajuda.
Testei e era quase isso, pois somente copia o numero que esta na celula B2.
mas que preciso e que seja copiado todos os NUM REG que for inserido na coluna B para coluna G.
Tentei fazer algumas coisas mas não deu certo.

Abraços

Fabiosp

Tente assim

Sub gravar()


Dim ulinha As Long

ulinha = Range("B1048576").End(xlUp).Row


Cells(ulinha, 6).Value = Cells(ulinha, 2).Value


End Sub

E so chamar o codigo qdo for conveniente no codigo principal

Reinaldo boa noite,

Desculpe a minha falha!
O seu código funcionou perfeitamente e que como não estou no trabalho fiz acesso remoto e a máquina eh lenta então acabei esquecendo de copiar o código corretamente.
Esqueci do mais importante incluir o (i) ..rs
Sem querer abusar de sua boa vontade, mas para finalizar gostaria de saber se teria como incluir na rotina um ferramenta para que caso ocorrer algum com algum NUM REG pular e ir para próxima NUM REG.
Tentei incluir uma instrução tipo OnError mas devido ao meu pouco conhecimento não deu certo.
Antecipadamente agradeço.

M prudencio boa noite.

Agradeço a sua colaboração e tentativa ajudar.
Abraços

Fabiosp

Bom dia colegas,

Estava pesquisando na internet e percebi que a instrução on error não vai resolver meu problema (eu acho que não rs.) pois o que eu preciso e que na parte do código onde tem a instrução IF Then, caso a condição for verdadeira ela pula o NUM REG atual e vai para próximo NUM REG e faça todo processo descrito na rotina sucessivamente.
O problema e que eu não sei que comando devo incluir para que seja feito isso.
Caso alguém tenho uma ideia antecipadamente agradeço.

Abraços.

Boa tarde colegas.

Fazendo varias pesquisas na internet encontrei a solução para o meu problema.
Agradeço a todos colegas pelas dicas e ajuda de sempre.

Abraços.

Fabio

Se encontrou a solução, poste aqui no fórum
Outras pessoas podem ter a mesma dúvida, e serão trazidas para o fórum pelos sites de pesquisa, e irão se decepcionar quando encontrarem a tua resposta, sem nenhuma informação.

Use o bom censo.

[]s

Bom dia Patropi,

Você tem razão e sempre bom postar os resultados positivos no fórum para caso alguém estiver com o mesmo problema seja direcionados ao fórum.
Sempre posto os resultados antes de finalizar o tópico, desta vez não postei pois no feriado houve manutenção dos servidores da empresa não consegui acessar meu pc remotamente.

Desculpe.

Segue a solução para este tópico.

Sub NUM_USADOS()
Dim i
Dim SETOR
Dim NUMREG(100)
Dim SULFX(100)
Dim RESULTADO
Dim SOMANDOTUDO
Dim autECLConnMgr As Object
Dim autECLSession As Object
Set autECLConnMgr = CreateObject("PCOMM.autECLConnMgr")
ConnHandle = CreateConnection(autECLConnMgr)
If ConnHandle = 0 Then
Exitsub
End If
Set autECLSession = CreateObject
Set wrksheet = ActiveSheet

autECLSession.autECLPS.SendKeys "REGISTRAR", 21, 36
autECLSession.autECLPS.SendKeys "[ENTER]"
i = 0
Do
SETOR = wrksheet.Cells(2, 1).Value
NUMREG = wrksheet.Cells(i + 2, 2).Value
SULFX = wrksheet.Cells(i + 2, 3).Value
RESULTADO = wrksheet.Cells(2, 4).Value
SOMANDOTUDO = wrksheet.Cells(1, 5).Value

autECLSession.autECLPS.SendKeys SETOR, 44, 47
autECLSession.autECLPS.SendKeys NUMREG(i), 44, 49
autECLSession.autECLPS.SendKeys SULFX(i), 44, 50
autECLSession.autECLPS.SendKeys RESULTADO, 44, 52
autECLSession.autECLPS.SendKeys "[ENTER]"

If (autECLSession.autECLPS.SendKeys.GetText(22, 50, 3) <> wrksheet.Cells(2, 2).Value) Then ' Se o NUM REG for repetido volta para menu inicial do programa
autECLSession.autECLPS.SendKeys "[pf3]"
End If

wrksheet.Cells(i + 2, "G") = NUMREG ' copia o NUM REG para coluna G
autECLSession.autECLPS.SendKeys "[ENTER]"

i = i + 1
Loop Until i = SOMANDOTUDO
autECLSession.autECLPS.SendKeys "[pf3]"
End Sub