Visual Basic macro excel celula ativa com 2 resultados

[Bruno.2017]

Prezados, bom dia.

Primeiramente gostaria de agradecer aos esclarecimentos da macro que precisei anteriormente.

Gostaria novamente de pedir uma ajuda, pois e mesma macro que recebi anteriormente gostaria de coloca-la na célula  ao lado (J4 ) utilizando bomo base a coluna ao lando da anterior (C2:C1090).

 

Não consigo colocar duas macros para trabalhar na mesma planilha ou coloca-la em um modulo.

 

 

Desde já agradeço.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   On Error GoTo Fin

If Target.Count > 1 Then Exit Sub

 Cells(3, "J").Value = ""

If Not Application.Intersect(Target, Range("B2:B1090")) Is Nothing Then
    Application.EnableEvents = False
           
           Cells(3, "J").Value = Target.Value2
           
Fin:
    Application.EnableEvents = True
Else
  
  Cells(3, "J").Value = ""
  
End IfTESTE CELULA ATIVA (1).zip

End Sub

[Basole]

Veja se é isso que entendi que está querendo 

TESTE CELULA ATIVA(1).zip

[Bruno.2017]

Perfeito, muito obrigado mais uma vez.