Макрос VBA для определенной строки

Question

В настоящее время я пытаюсь написать код в Excel, который позволит мне дважды щелкнуть конкретную ячейку в столбце А, и он запустит макрос, который будет вводить информацию из Excel в шаблон слова.Например, у меня есть десять корпоративных облигаций с разными сроками погашения, срок действия облигации в строке 1 истекает, и мне нужно сгенерировать квитанцию ​​об этом.Я хочу щелкнуть ячейку A1, и она введет информацию об облигации из Excel в созданный мной шаблон Microsoft Word.Мой код ниже будет вводить информацию в слово doc, но это только для одной записи.То, что я сейчас пытаюсь сделать, - это цикл for, но я не думаю, что это тот путь, по которому я должен идти.

Sub LOC_Test()
 On Error GoTo errorHandler
 Dim WDApp As Word.Application
 Dim myDoc As Word.Document
 Dim mywdRange As Word.Range
 Dim CatD As Excel.Range
 Dim CatB As Excel.Range

 Set WDApp = New Word.Application
 With WDApp
 .Visible = True
 .WindowState = wdWindowStateMaximize
 End With
 Set myDoc = WDApp.Documents.Add(Template:="C:\Desktop\Bond_Test.docm")
 Set EOD = Sheets("Sheet1").Range("A3")
 Set IED = Sheets("Sheet1").Range("B3")
 Set FED = Sheets("Sheet1").Range("C3")
 Set IP = Sheets("Sheet1").Range("D3")
 Set MN = Sheets("Sheet1").Range("E3")
 Set MName = Sheets("Sheet1").Range("F3")
 Set LOCA = Sheets("Sheet1").Range("G3")
 Set NOB = Sheets("Sheet1").Range("H3")
 Set BOC = Sheets("Sheet1").Range("I3")
 Set Add = Sheets("Sheet1").Range("J3")


With myDoc.Bookmarks
.Item("EOD").Range.InsertAfter EOD
.Item("IED").Range.InsertAfter IED
.Item("FED").Range.InsertAfter FED
.Item("IP").Range.InsertAfter IP
.Item("MN").Range.InsertAfter MN
.Item("MName").Range.InsertAfter MName
.Item("LOCA").Range.InsertAfter LOCA
.Item("NOB").Range.InsertAfter NOB
.Item("BOC").Range.InsertAfter BOC
.Item("Add").Range.InsertAfter Add
End With
errorHandler:
Set WDApp = Nothing
Set myDoc = Nothing
Set mywdRange = Nothing
End Sub