pessoal estou tentando montar um codigo aqui, mas como eh coisa nova, preciso de ajuda. nao sei se eh possivel.

trata-se de uma variavel que recebera determinado valor se uma celula na planilha estiver vazia. essa celula esta puxando outro valor via procv.

celulas: nesse valor, a linha abaixo de wagner jose duarte eh a linha 40 e a ultima coluna é a quinta. ou seja, a celula e40 é a celula que quero manipular no select

Nome	 Matrícula 	Competência(s)	Valor
AMARILDO MATOS DE SOUZA	1071698	0	R$ 15,00
ANTÔNIO FERNANDO SOUZA OLIVEIRA	1072336	0	R$ 2,00
DENIS DA SILVA GOUVEA	1068452	0	R$ 13,00
FABIO HENRIQUE SANTANA DE CARVALHO	1073387	0	R$ 15,00
JAIR BARATA GUIMARAES 	1200659	0	R$ 2,00
TACIO MELO DA SILVEIRA	1308268	0	R$ 4,00
VINICIUS XAVIER TEIXEIRA	1461800	0	R$ 5,00
WAGNER JOSE DUARTE	1301678	0	R$ 6,00 
#N/A		#N/A	#N/A

minha função e codigo correspondente:

Function seleciona()
    Dim i As String
    Select Case Worksheets("gru").Cells(i, 5).Value
        Case (40) Is "#N/A"
           line111 = "<!--"
           line121 = "-->"
     
     End Select
    End Function

Sub geravalores()
    Call seleciona
    'variáveis com valores fixos
    Dim line1, line2, line3, l

ali no select já usei Case(40) Is = 0, Is "0"... mas sempre dá erro type mismatch ou outros erros