Desafio->Verificar se o item que esta sendo adicionado na tabela já existe

Bom dia , Tudo bem ?

Estou com dificuldade em entender como fazer a verificação para saber se o item que está sendo adicionado à tabela já existe. As duas etapas obrigatórias do desafio deram certo, mas não estou conseguindo prosseguir.

Sub sbManipulaDados()
    'Declaração de variável como célula
    Dim rCelula            As Range
    Dim lContaLinhaDestino As Long
    Dim sPlanilhaOrigem    As String
    Dim linha              As Integer

    
    'Inicializa a variável
    lContaLinhaDestino = 2
    sPlanilhaOrigem = ActiveSheet.Name
    
    'Verifica se ja existe ou não a planilha versão final
    sbVerificaVersaoFinal
    
    linha = 1
    'Faz a contagem de linha da Sheet Versão Final
    Do While Worksheets("VersaoFinal").Cells(linha, 1).Value <> vbNullString
        linha = linha + 1
    Loop
    
  
    If linha = 2 Then
        'Selecionar a planilha que contém a origem dos dados
        Sheets(sPlanilhaOrigem).Select
        'Para cada celula na Seleção,estrutura de repetição do tipo For Each
        For Each rCelula In Selection
            
            If rCelula.Column = 4 Then
                Sheets("VersaoFinal").Cells(lContaLinhaDestino, rCelula.Column) = fnAjustaData(rCelula.Value)
                'Incrementa para andar uma linha
                lContaLinhaDestino = lContaLinhaDestino + 1
            Else
                Sheets("VersaoFinal").Cells(lContaLinhaDestino, rCelula.Column) = rCelula
            End If

        Next
    Else
        'Selecionar a planilha que contém a origem dos dados
        Sheets(sPlanilhaOrigem).Select
        'Para cada celula na Seleção,estrutura de repetição do tipo For Each
        For Each rCelula In Selection
            
            If rCelula.Column = 4 Then
                Sheets("VersaoFinal").Cells(linha, rCelula.Column) = fnAjustaData(rCelula.Value)
                'Incrementa para andar uma linha
                linha = linha + 1
            Else
                Sheets("VersaoFinal").Cells(linha, rCelula.Column) = rCelula
            End If
           
        Next
    End If
    
    If linha = 2 Then
        'Sub usada para chamar a versão final que é responsável por formatar a tabela na planilha VersaoFinal
        sbFormataVersaoFinal
        Sheets("Movimentação").Select
    Else
       Sheets("Movimentação").Select
    End If


End Sub