Não entendi o Titulo, mas veja se é isto o que pretende.
Troque esta linha :
While Linha < QuantDados + 1
Por esta :
While Linha < QuantDados
e após a linha :
Range("R" & UltimaCel).Value = FORNECEDORCONC
antes do "Wend" adicione o incremento da Variável Linha
Linha = Linha + 1
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/01/2018 12:45 pm