[Resolvido]registro access para célula do excel

Senhores, estou utilizando o codigo do Mestre Avelino abaixo;
Public Sub fncCriarPlanilhaLuizz()
Dim xlApp As Object
Dim wkb As Object
Dim objSheet As Object
'Abre o Excel
Set xlApp = CreateObject("excel.application")
'Torna o aplicativo excel visível
xlApp.Application.Visible = True
'Abre o arquivo tblClientes2.xls
Set wkb = xlApp.workbooks.Open(CurrentProject.Path & "\tblClientes2.xls")
'Adiciona uma segunda planilha ao arquivo
wkb.sheets.Add
'Variável objSheet assume segunda planilha
Set objSheet = xlApp.Activeworkbook.sheets("Plan2")
'Altera o nome da planilha
objSheet.Name = "Luizz"
objSheet.Activate
'Insere os dados nas celulas desejadas
objSheet.cells(1, 3).Value = "Nome do Cliente"
objSheet.cells(2, 3).Value = "Luiz ZZZ"
'Ajusta o tamanho das colunas
objSheet.columns.autofit
'Salva a planilha
wkb.Save
'Fecha tudo
wkb.Close
Set objSheet = Nothing
Set wkb = Nothing
xlApp.Quit
Set xlApp = Nothing
MsgBox "A planilha LUIZZ foi criada...", vbInformation, "Aviso"
End Sub

mas preciso inserir nas linhas do excel o resultado de uma consulta. como fazer?
objSheet.cells(1, 3).Value = resultado de consulta
objSheet.cells(2, 3).Value = resultado de consulta

Boa noite,
Crie recordset com a consulta, já temos abordado inúmeras vezes desde 2011
passe o campo para o excel: objSheet.cells(2, 3).Value = rst("CampoX")

tentei dessa forma mais cedo e não conseguia de jeito nenhum, tentei agora e foi, obrigado.

outra duvida.

rstTemp.MoveFirst
Do While Not rstTemp.EOF
'Insere os dados nas celulas desejadas
'L, C
objSheet.cells(13, 1).Value = rstTemp("ncaixa")
objSheet.cells(13, 2).Value = rstTemp("codTTD")

rstTemp.MoveNext
Loop

para pular a linha e preencher a 14 e assim enquanto rodar o while?

Bom dia
Não entendi, quer dentro do registo do Access irmudando de linha no Excel?
Deve ser isto

rstTemp.MoveFirst
Do While Not rstTemp.EOF
'Insere os dados nas celulas desejadas
'L, C
for Linha=13 to 14
objSheet.cells(Linha, 1).Value = rstTemp("ncaixa")
objSheet.cells(Linha, 2).Value = rstTemp("codTTD")
next
rstTemp.MoveNext
Loop