Guru do Excel e Power BI

Bom dia pessoal, não estou conseguindo excluir através do duplo click no listbox da erro nesta linha: lngLinha = Application.WorksheetFunction.Match(CLng(.List(.ListIndex, 1)), Plan1.Range(Plan1.Cells(2, 2), Plan1.Cells(rngUltcel.Row, 2)), 0) + 1, alguem pode me ajudar. Grato

Veja se é isso.

babdallas já ta virando rotina você me ajudar, mas mais uma vez muito obrigado. Abraço