Sua descrição fica um tanto quanto vaga, portanto dificil receber um retorno eficiente; com um exemplo ficaria muito mais simples.

Abaixo uma rotina que talvez faça o que deseja, tente utiliza-lá

    Sub Compara()
    Dim uLin As Integer, nLin As Integer, CelLocalizar As Variant

    'Inicia loop nas linhas 2 até a ultima preenchida na Coluna A em Principal
    For uLin = 2 To Sheets("Principal").Cells(Cells.Rows.Count, "A").End(xlUp).Row
        Set CelLocalizar = Sheets("Colar LD").Columns("A:A").Find(Sheets("Principal").Cells(uLin, 1), LookAt:=xlWhole, LookIn:=xlValues)
        If CelLocalizar Is Nothing Then
        nLin = Sheets("Comparação").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
        Sheets("Comparação").Cells(nLin, 1) = Sheets("Principal").Cells(uLin, 1).Value
        Sheets("Comparação").Cells(nLin, 2) = "Principal - linha: " & uLin
        End If
    Next
    'Inicia loop nas linhas 2 até a ultima preenchida na Coluna A em Colar LD
    For uLin = 2 To Sheets("Colar LD").Cells(Cells.Rows.Count, "A").End(xlUp).Row
        Set CelLocalizar = Sheets("Principal").Columns("A:A").Find(Sheets("Colar LD").Cells(uLin, 1), LookAt:=xlWhole, LookIn:=xlValues)
        If CelLocalizar Is Nothing Then
        nLin = Sheets("Comparação").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
        Sheets("Comparação").Cells(nLin, 1) = Sheets("Colar LD").Cells(uLin, 1).Value
        Sheets("Comparação").Cells(nLin, 2) = "Colar LD -  linha: " & uLin
        End If
    Next
    End Sub

Reinaldo
obrigado pela ajuda, realmente a minha descrição estava vaga, mas peguei o código que voce enviou e alterei, agora preciso apenas que os dados que estão sendo inseridos na plan3 seja colocado na plan 1 abaixo da ultima linha com dados
Segue modelo para voce dar uma olhada
obrigado