Importar vários dados de uma consulta para uma única celular

Bom dia,

Eu tenho a seguinte consulta vba no Excel

Sub HistoricoRA()

Windows("RA Siscon.xls").Activate

Sheets("Planilha1").Visible = True

Sheets("Planilha1").Select

Dim REGDIARIO As ADODB.Recordset

abreConexao

whereConsulta1 = " CHAVE = ‘" & formPrincipal.campoProcesso.Value & "’"

Qsql2 = "SELECT CHAVE,CHAVE_COM, EVENTO, DATA, DESCRICAO, RA_sim_Nao  FROM consulta_diadio WHERE " & whereConsulta1 & "ORDER BY DATA "



Set REGDIARIO = New ADODB.Recordset



REGDIARIO.Open Qsql2, CON, adOpenKeyset, adLockOptimistic.

Gostaria de saber como fazer para salvar o resultado em uma única célula., Vamos supor que pareça uns 10 registros aí queria que me retornasse assim

10/12/2019 - descrição 1
11/12/2019 - descrição 2
20/12/2019 - descrição 3
Essas datas e descrição são dos campos que estão na consulta assim.
Então resumindo preciso que ele retorne todos os valores da consulta em uma única célula e que estejam separados por quebra de linha na mesma linha.

Desde já agradeço.