Exportar datos de Excel a Word por filas

Estoy generando un cuestionario de preguntas en excel con varias fórmulas y funciones, dichas preguntas se originan con función de aleatorio, necesito exportar las mismas a un archivo de word pero el que tengo me copia todo de corrido en un solo renglón y lo necesito es por filas independientes tal cual esta en excel. Copio el código para que por favor me recomienden los cambios pertinentes; de antemano muchas gracias.

sub ExportarDeExcelAWord()
Dim oAplicacionWord As Word.Application
Dim oDocumento As Word.Document

Set oAplicacionWord = New Word.Application
Set oDocumento = oAplicacionWord.Documents.Add()

Dim textoActualCelda As String

For contador = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row

textoActualCelda = textoActualCelda & "" & Cells(contador, 1)

Next Contador

oDocumento.Content.InsertAfter (textoActualCelda)
oAplicacionWord.Visible = True

Set oDocumento = Nothing
Set oAplicacionWord = Nothing
End Sub