Boa noite,

Nesta macro eu não postei inteira, pois é um pouco grande e somente no final que está com problema.

Public Sub ListarDados()
	
	'Esta macro está aplicada a uma planilha chamada ListarDados e nesta parte da macro a matriz NomeM(i, 1), (i, 2)...
	'é carregada com os dados como operadores e processos de várias planilhas, e durante este tempo de
	'execução, estes dados devem ser enviados para uma outra planilha chamada Controle X Validação.xlsx ao final e 
	'neste final ao invéz de jogar os dados nas colunas J e K da planilha Controle X Validação.xlsx, acaba jogando nas
        'colunas J e K  da mesma planilha "ListarDados".	
	'.
	    
	i = 1
    
    Workbooks.Open Filename:="C:Base ControleControle X Validação.xlsx"
       
    planAtiva = "Controle X Validação.xlsx"
    Windows(planAtiva).Activate
    Sheets("Validação").Select
    
    Do While i <= k
		
	  '1) e 2) Com nenhum destes consegui jogar os dados na planilha Controle X Validação.xlsx
		 
	  '1)
      'Cells(i + 1, 10) = CStr(NomeM(i, 1))
      'Cells(i + 1, 11) = CStr(NomeM(i, 2))
		
      '2)  
      celJ = "J" + CStr(i + 1)
      celK = "K" + CStr(i + 1)
      Range(celJ).Value = NomeM(i, 1)
      Range(celK).Value = NomeM(i, 2)
         
        i = i + 1
    Loop
    
    MsgBox ("Dados copiados e pronto para validação!")
    
End Sub

Desde Já agradeço a quem puder ajudar!