Guru do Excel e Power BI

Boa noite,

Estou usando parte do codigo abaixo para enviar e-mails de forma automatica pelo excel, mas quero que o inicial do range que no memento é A6 seja mutavel de acordo com o valor especifico de uma celula,

Set IntervaloMailing = WrkS.Range("A6:A7")

Por exemplo:

Se a celula que eu vou usar como referencia estiver com o valor A5

Esta parte codigo ficaria:

Set IntervaloMailing = WrkS.Range("A5:A7")

ou seja o primeiro valor do range precisa mudar de acordo com o valor que for digitavel na minha celular de referencia que neste caso poderia ser a primeira celula da planilha







Segue o codigo que eu estou usando

Public WrkB As Workbook 'Cria variavel da Pasta de Trabalho
Public WrkS As Worksheet 'Cria variavel da Planilha

Public IntervaloMailing As Range 'Cria Variavel com o Intervalo do Mailing
Public Celula As Range 'Cria Variavel com o registro do Mailing


Public AppOutk As Outlook.Application 'Cria Variavel com a Aplicacao do Outlook
Public MailOutk As Outlook.MailItem 'Cria Variavel com o objeto "Email" do Outlook

Public Sub MandarEmail()

Set WrkB = ThisWorkbook 'Define a pasta de Trabalho
Set WrkS = WrkB.Sheets("Mailing") 'Define a Planilha com os dados

Set IntervaloMailing = WrkS.Range("A7:A7") 'Define qual o intervalo do Mailing <<<< esta parte que preciso que seja variavel

With WrkS
.Select
For Each Celula In IntervaloMailing
Call CriaEmail 'Chama a Rotina para Criar o Email
Next
End With

End Sub

Se a célula de referência for a célula B2:

Set IntervaloMailing = WrkS.Range(WrkS.Range("B2") & ":A7")

Tendo o valor "A5" na célula B2, o IntervaloMailing será A5:A7