Na falta de maiores detalhes de como será feita tal operação, se atraves de digitação antes em A1 ou se é um valor que ja consta procedente de alguma formula ou importação, segue as instruções bem básicas para verificar se o valor de A1 já consta no Range B1:B9.

Sub Verifica_Valor()

    Dim sRg_A1
    Dim sRG_B1_B9 As Range
    
    sRg_A1 = Range("A1").Value
    
    Set sRG_B1_B9 = Range("B1:B9")
    
    For Each x In sRG_B1_B9
        
        If x = sRg_A1 Then
            MsgBox "Valor : " & sRg_A1 & " repetido em " & x.Address(0, 0)
            Exit Sub
        End If
        
    Next

End Sub

[]s

Veja se ajuda.