a solução...que eu encontrei.
Private Sub bt_exportarZaroo_Click()
'Rotina para exportar para Excel com celulas referenciadas. 01/09/2018
If Me.Forneoculta <> "ZAROO" Then
MsgBox "Exportação somente para ZAROO", vbCritical, "AVISO..."
Else
Dim RstFrm As DAO.Recordset, RstSubFrm As DAO.Recordset, l As Integer
Dim MeuExcel As Object
Set MeuExcel = CreateObject("Excel.Application")
MeuExcel.Visible = True
MeuExcel.Workbooks.Open FileName:=CurrentProject.Path & "\ZAROO.xls" 'ZAROO é o nome da planilha e tem que estar no mesmo folder do sistema
Set RstFrm = Me.RecordsetClone
RstFrm.Bookmark = Me.Bookmark
MeuExcel.Range("C7") = RstFrm("cliente") '
MeuExcel.Range("S7") = RstFrm("NomeFantasia") '
MeuExcel.Range("C13") = RstFrm("CNPJ") '
MeuExcel.Range("C14") = RstFrm("InscrEstadual") '
MeuExcel.Range("C8") = RstFrm("endereco") & " ," & RstFrm("Numero") '
MeuExcel.Range("C9") = RstFrm("Bairro") '
MeuExcel.Range("C10") = RstFrm("Cidade") '
MeuExcel.Range("C11") = RstFrm("Estado") '
MeuExcel.Range("C12") = RstFrm("CEP") '
MeuExcel.Range("H11") = RstFrm("Fone") & " / " & RstFrm("Celular") '
MeuExcel.Range("C16") = RstFrm("EmailNF") '
MeuExcel.Range("H13") = RstFrm("Prazoculta") '
MeuExcel.Range("S6") = RstFrm("ContatoCliente") '
MeuExcel.Range("S4") = RstFrm("DataPed")
MeuExcel.Range("S3") = RstFrm("VendedorOculta") '
MeuExcel.Range("B23") = RstFrm("Observacao") '
MeuExcel.Range("V2") = RstFrm("NossoPedido") '
Set RstSubFrm = Me!SFrmDpedido.Form.RecordsetClone
RstSubFrm.MoveFirst
l = 24 ' Uma celula(celula onde está o texto)antes da inserção.
Do While Not RstSubFrm.EOF
l = l + 1
MeuExcel.Range("B" & l) = RstSubFrm("CodProdutoOculta") '
MeuExcel.Range("C" & l) = RstSubFrm("Artigo")
MeuExcel.Range("E" & l) = RstSubFrm("QTD")
MeuExcel.Range("F" & l) = RstSubFrm("PUN") ' tamanho P
MeuExcel.Range("G" & l) = RstSubFrm("MR") ' tamanho M
MeuExcel.Range("H" & l) = RstSubFrm("GPP") ' tamanho G
MeuExcel.Range("I" & l) = RstSubFrm("GGP") ' tamanho GG
'MeuExcel.Range("J" & l) = RstSubFrm("18") ' tamanho XG não tem no sistema
MeuExcel.Range("K" & l) = RstSubFrm("34M") ' tamanho 34
MeuExcel.Range("L" & l) = RstSubFrm("36G") ' tamanho 36
MeuExcel.Range("M" & l) = RstSubFrm("38GG") ' tamanho 38
MeuExcel.Range("N" & l) = RstSubFrm("401") ' tamanho 40
MeuExcel.Range("O" & l) = RstSubFrm("422") ' tamanho 42
MeuExcel.Range("P" & l) = RstSubFrm("443") ' tamanho 44
MeuExcel.Range("Q" & l) = RstSubFrm("464") ' tamanho 46
MeuExcel.Range("R" & l) = RstSubFrm("486") ' tamanho 48
MeuExcel.Range("S" & l) = RstSubFrm("508") ' tamanho 50
MeuExcel.Range("T" & l) = RstSubFrm("5210") ' tamanho 52
MeuExcel.Range("V" & l) = RstSubFrm("PrecoVenda") ' Preço de venda
MeuExcel.Range("W" & l) = RstSubFrm("TotalOculta") ' Preço total dos itens ( qtd * preço de venda )
RstSubFrm.MoveNext
Loop
'Fecha o arquivo Excel
MeuExcel.ActiveWorkbook.Close SaveChanges:=True
MeuExcel.Visible = True: MeuExcel.Quit: Set MeuExcel = Nothing
Set RstFrm = Nothing
Set RstSubFrm = Nothing
MsgBox "A planilha foi atualizada...", vbInformation, "Aviso"
End If
End Sub