Excel - Ayuda con Eliminar Filas con criterios

Sub eliminaFila()

    '@dj.vivanco // 25-05-2021

    Dim dict As Object, celda As Range, ID As String

    Set dict = CreateObject("Scripting.Dictionary")

    'lleno el diccionario con datos de columna E de la hoja 2------

    For Each celda In Hoja2.Range("E2:E" & Hoja2.Range("E" & Rows.Count).End(xlUp).Row)

        ID = celda.Value

        If Not dict.Exists(celda.Value) Then dict.Add ID, ID

    Next celda

    'recorro cada id de la hoja 1, comparo y borro lineas que no existen en hoja 2

    For Each celda In Hoja1.Range("E2:E" & Hoja1.Range("E" & Rows.Count).End(xlUp).Row)

        ID = celda.Value

        If ID <> dict(ID) Then celda.EntireRow.Delete

    Next celda

End Sub