señalar en este codigo las celdas que se pueden modificar

[Obero15]

Holas, me proporcionaron el sigiente codigo en VB para lograr enviar correos de acuerdo a una condicion. en un rango de correos lista

El codigo funciona perfecto, sin embargo, el codigo se monto sobre un ejemplo sencillo, ahora necesito adaptarlo a una hoja mas elabaroda en donde las posiciones de las celdas son distintas

NO logro distingir en la lista de instrucciones cuales son las celdas que puedo variar para ajustarlo a la otra hoja.

 

Sub Macro68()
'------------------
'by Cacho Rodríguez
'------------------
Dim LD(), C As Range, Q%

For Each C In ActiveSheet.ListObjects(1).DataBodyRange.Columns(2).Cells
If InStr(LCase(C), "enviar correo") > 0 And C.Offset(, 2) = "" Then
Q = 1 + Q
ReDim Preserve LD(1 To Q)
LD(Q) = C.Offset(, 1)
C.Offset(, 2) = ChrW(9086)
End If
Next

If Q = 0 Then MsgBox "Sin correos que enviar.": End

With CreateObject("Outlook.Application")
With .CreateItem(0)
.BCC = Join(LD, ";")
.Subject = Range("h4").Value
.Body = Range("h5").Value
.Display
End With
End With
End
End Sub

 

Por ejemplo si puedo identificar en la instruccion .Body = Range("h5").Value   la celda a la que se hace referencia es la h5, y que luego puedo cambiarla por A1 o z500 si lo deseo, pero en el resto no logro distingirlo

 

Agrego el archivo en donde se monto el codigo.

Podrian indicarme cuales son los valores que puedo variar para adptarlo a otra hoja?

Maccro variar referencias.xlsm