¿Cómo elaborar macro VB que me devuelva el resultado dependiendo del valor de una celda en excel?

buen día a todos, espero no incomodar y me puedan dar una mano con lo siguiente: estoy realizando la siguiente macro:

Sub exportaraword2()
Dim datos(0 To 1, 0 To 5) As String '(columna,fila)
patharch = ThisWorkbook.Path & "\NOTMEN_5SINVAC.dotx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
datos(0, 0) = "[reemp_nombre]"
datos(1, 0) = Hoja1.Cells(4, 2) '(fila,columna)
datos(0, 1) = "[reemp_fecha]"
datos(1, 1) = Hoja1.Cells(2, 1)
datos(0, 2) = "[reemp_exp]"
datos(1, 2) = Hoja1.Cells(1, 4)
datos(0, 3) = "[reemp_sexo]"
datos(1, 3) = Hoja1.Cells(4, 11)
datos(0, 4) = "[reemp_localidad]"
datos(1, 4) = Hoja1.Cells(1, 8)
datos(0, 5) = "[reemp_edad]"
datos(1, 5) = Hoja1.Cells(4, 8)
For i = 0 To UBound(datos, 2)
 textobuscar = datos(0, i)
 objWord.Selection.Move 6, -1
 objWord.Selection.Find.Execute FindText:=textobuscar
 While objWord.Selection.Find.found = True
 objWord.Selection.Text = datos(1, i) 'texto a reemplazar
 objWord.Selection.Move 6, -1
 objWord.Selection.Find.Execute FindText:=textobuscar
 Wend
Next i
objWord.Activate
End Sub

Ahora bien, necesito poder correr la misma macro con diferentes datos dependiendo del valor de una celda, supongamos que en la celda AL4 tengo 1, entonces me ejecute esta macro con otros datos mas y así hasta 4 diferentes.

Espero poder explicarme, es una macro para hacer notas de vacunación entonces quiero que dependiendo la cantidad de vacunas aplicadas me genere una nota distinta.

Por cierto lanzo la macro con un botón en la hoja de calculo de excel.

de antemano muchas gracias.