Tenho o código abaixo e ao tentar adicionar outra linha antes de "Sheets("Clientes").Cells(lin, 155) Like "*" & UCase(cdContatoDia) & "*" Then"

Dá essa msg "Número Excessivo de Continuações de Linhas"

Tem alguma solução??

Private Sub btGerar_Relatorio_Click()

Sheets("Relatório").Range("A5:GJ3000").ClearContents
lin = 5
Linha = 5

Do Until Sheets("Clientes").Cells(lin, 2) = ""
If Sheets("Clientes").Cells(lin, 11) Like "*" & UCase(cdObservações) & "*" And _
Sheets("Clientes").Cells(lin, 12) Like "*" & UCase(cdPrioridades) & "*" And _
Sheets("Clientes").Cells(lin, 14) Like "*" & UCase(cdPedido) & "*" And _
Sheets("Clientes").Cells(lin, 30) Like "*" & UCase(cdCNPJ) & "*" And _
Sheets("Clientes").Cells(lin, 100) Like "*" & UCase(cdSintegra) & "*" And _
Sheets("Clientes").Cells(lin, 17) Like "*" & UCase(cdAtivos) & "*" And _
Sheets("Clientes").Cells(lin, 67) Like "*" & UCase(cdStatus) & "*" And _
Sheets("Clientes").Cells(lin, 19) Like "*" & UCase(cdVisitar) & "*" And _
Sheets("Clientes").Cells(lin, 10) Like "*" & UCase(cdVisitaDadosApres) & "*" And _
Sheets("Clientes").Cells(lin, 21) Like "*" & UCase(cdFazerContatos) & "*" And _
Sheets("Clientes").Cells(lin, 22) Like "*" & UCase(cdTramitesInformações) & "*" And _
Sheets("Clientes").Cells(lin, 8) Like "*" & UCase(cdPotencial) & "*" And _
Sheets("Clientes").Cells(lin, 68) Like "*" & UCase(cdVendedor) & "*" And _
Sheets("Clientes").Cells(lin, 25) Like "*" & UCase(cdRamo) & "*" And _
Sheets("Clientes").Cells(lin, 15) Like "*" & UCase(cdVisitas) & "*" And _
Sheets("Clientes").Cells(lin, 28) Like "*" & UCase(cdCotaçãoEnviada) & "*" And _
Sheets("Clientes").Cells(lin, 18) Like "*" & UCase(cdCotaçãoAprovReprov) & "*" And _
Sheets("Clientes").Cells(lin, 86) Like "*" & UCase(cdAmostraRec) & "*" And _
Sheets("Clientes").Cells(lin, 141) Like "*" & UCase(cdAmostraEnv) & "*" And _
Sheets("Clientes").Cells(lin, 69) Like "*" & UCase(cdCidade) & "*" And _
Sheets("Clientes").Cells(lin, 34) Like "*" & UCase(cdContatoMes) & "*" And _
Sheets("Clientes").Cells(lin, 32) Like "*" & UCase(cdContatoAno) & "*" And _
Sheets("Clientes").Cells(lin, 114) Like "*" & UCase(cdVisitaDia) & "*" And _
Sheets("Clientes").Cells(lin, 127) Like "*" & UCase(cdVisitaMesAno) & "*" And _
Sheets("Clientes").Cells(lin, 155) Like "*" & UCase(cdContatoDia) & "*" Then