Pessoal, abaixo está parte de uma macro que estou tentando fazer para cadastrar os valores em uma planilha!

Eu tenho na minha planilha de tabulação todos esses campos, porém tenho que cadastrar na base os comentários em linhas separadas e todo o resto se repetir!
Veja que só mudam os ranges dos comentários
Range("CMTS_Q002_01")
Range("CMTS_Q002_02")
Range("CMTS_Q002_02")

Da forma como eu fiz ele cadastra. Mas quando eu utilizado os IFS não funciona, e eu preciso dos IFS porque se o usuário não cadastrar um comentário não é para mandar para base!

Existe alguma forma de simplificar esse código?
Porque os IFS não estão funcionando?

Vide código:

Private Sub SalvaRegistroProblema(ByVal id As Long, ByVal indice As Long)




    'tenta abrir o arquivo em modo escrita
    Call AtualizarArquivoProblema(False)
    
    
        With wsCadastroProblema
    
    If Sheets("Pesquisa").Range("CMTS_Q002_01") <> "" Then
    
  
' Comentário 01
    
        .Cells(indice, colProbIdPesquisa).Value = id
        .Cells(indice, colProbRegional).Value = Sheets("Pesquisa").Range("REGIONAL")
        .Cells(indice, colProbRepresentante).Value = Sheets("Pesquisa").Range("REPRESENTANTE")
        .Cells(indice, colProbTecnico).Value = Sheets("Pesquisa").Range("TECNICO")
        .Cells(indice, colProbEncomenda).Value = Sheets("Pesquisa").Range("ENCOMENDA")
        .Cells(indice, colProbQuantidade).Value = Sheets("Pesquisa").Range("QUANTIDADE")
        .Cells(indice, colProbQ2Quantidade).Value = Sheets("Pesquisa").Range("Q002_QTDE")
        .Cells(indice, colProbQ2QComents).Value = Sheets("Pesquisa").Range("CMTS_Q002_01")
        
Else

        
    If Sheets("Pesquisa").Range("CMTS_Q002_02") <> "" Then

' Comentário 02
    
        .Cells(indice + 1, colProbIdPesquisa).Value = id
        .Cells(indice + 1, colProbRegional).Value = Sheets("Pesquisa").Range("REGIONAL")
        .Cells(indice + 1, colProbRepresentante).Value = Sheets("Pesquisa").Range("REPRESENTANTE")
        .Cells(indice + 1, colProbTecnico).Value = Sheets("Pesquisa").Range("TECNICO")
        .Cells(indice + 1, colProbEncomenda).Value = Sheets("Pesquisa").Range("ENCOMENDA")
        .Cells(indice + 1, colProbQuantidade).Value = Sheets("Pesquisa").Range("QUANTIDADE")
        .Cells(indice + 1, colProbQ2Quantidade).Value = Sheets("Pesquisa").Range("Q002_QTDE")
        .Cells(indice + 1, colProbQ2QComents).Value = Sheets("Pesquisa").Range("CMTS_Q002_02")

Else

        
    If Sheets("Pesquisa").Range("CMTS_Q002_03") <> "" Then
    
    
' Comentário 03
    
        .Cells(indice + 2, colProbIdPesquisa).Value = id
        .Cells(indice + 2, colProbRegional).Value = Sheets("Pesquisa").Range("REGIONAL")
        .Cells(indice + 2, colProbRepresentante).Value = Sheets("Pesquisa").Range("REPRESENTANTE")
        .Cells(indice + 2, colProbTecnico).Value = Sheets("Pesquisa").Range("TECNICO")
        .Cells(indice + 2, colProbEncomenda).Value = Sheets("Pesquisa").Range("ENCOMENDA")
        .Cells(indice + 2, colProbQuantidade).Value = Sheets("Pesquisa").Range("QUANTIDADE")
        .Cells(indice + 2, colProbQ2Quantidade).Value = Sheets("Pesquisa").Range("Q002_QTDE")
        .Cells(indice + 2, colProbQ2QComents).Value = Sheets("Pesquisa").Range("CMTS_Q002_03")

Else

End If
End If
End If



End With


         

    
    'salva o arquivo
    Call wbCadastroProblema.Save
    
    'abre o arquivo novamente em modo leitura
    Call AtualizarArquivoProblema(True)

MsgBox "Pesquisa Tabulada com Sucesso"

    
End Sub

Obrigado Galera