Olá!
Há muitas maneiras de fazer.
Baseado no seu arquivo, você pode modificar o evento CommandButton1_Click com o código:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Plan1.Visible = xlSheetVisible
Plan1.Activate
Cells.Find(What:=ListBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Delete Shift:=xlUp
ListBox1.Clear
Me.ListBox1.List = Application.WorksheetFunction.Transpose(Plan1.Range("A9:A200"))
Plan1.Visible = xlSheetHidden
Application.ScreenUpdating = True
End Sub
Postado : 21/08/2015 12:36 pm