Macro VBA liste à exporter vers Word

Bonsoir,

Je débute un peu sur VBA. J'ai récupéré une macro qui me convient bien, mais je voudrais l'adapter à mes besoins. J'ai un tableau croisé dynamique qui me permet d'afficher un résulat dans une colonne (A) selon certains critères de choix, sélectionnés depuis des segments. La macro permet d'ouvrir un doc Word, et de coller les données dedans. Jusque là, ça fonctionne bien avec une cellule (voir macro ci-dessous)

J'aimerai pouvoir prendre toute la liste de la colonne A (la première cellule étant d'ailleurs la 18) sachant qu'elle est évolutive selon mes critères de choix.

Pourriez-vous m'aider s'il vous plait ? J'ai inséré des signet dans mon Word qui me permette d'avoir le résultat là ou je le souhaite.

Sub export_données_dans_signet_word()

Dim WordApp As Object
Dim WordDoc As Object

Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open("Mon document Word")
WordApp.Visible = False

WordDoc.Bookmarks("Tableau_de_Bord").Range.Text = Cells(18, 1)

End Sub

Merci par avance pour votre précieuse aide !
Bonne soirée à tous

Chris