Prezados, boa noite,

Tenho uma quantidade de 40 emails com dados de planilhas diferentes para serem enviados diariamente a diferentes pessoas. Estou ajustando um VBA que encontrei, porém esta dando um erro numa parte do VBA que não consigo ajustar.

Teriam como me ajudar a arrumar este problema.

Obs.: A planilha esta em anexo

Erro:

'Encontra a linha que a tabela da aba layout começa
k = 1
Do While sh_layout.Cells(k, "C").Value <> "Responsável"
k = k + 1
Loop