Não entendi mto bem. Mas, se vc quer rodar a macro sempre que clicar na célula d4, pode ser assim:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ao clicar na célula com a posição, rodar a macro
If Target.Address = "$D$4" Then Call intpesquisa
End Sub

Não entendi mto bem. Mas, se vc quer rodar a macro sempre que clicar na célula d4, pode ser assim:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ao clicar na célula com a posição, rodar a macro
If Target.Address = "$D$4" Then Call intpesquisa
End Sub

O código ajudou sim, mas na verdade não é somente na celula d4, são as celulas da coluna D que ao clicar irá rodar a macro.
Este código é somente para agilizar uma analise que tenho feito com duas planilhas diferentes e que possuem muitos dados a serem analisados antes de uma conclusão final. Sendo que o parâmetro inicial da analise está na coluna D.

Tente assim então:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ao clicar na coluna D – que é a quarta coluna – rodar a macro
If Target.column = 4 Then Call intpesquisa
End Sub