Problemas con List Box

El problema esta en que cuando quiero agregar datos a un listbox no lo puede hacer
me dice que Error 424 "se requiere un objeto".
Por lo que entiendo supongo que apuntara a que falta el listbox donde agregar los datos, pero lo tengo!!!
El boton de comando esta agregado a una hoja donde tambien se encuentra el listbox.
Adjunto el codigo que estoy utilizando, cualquier dato adicional que necesiten favor haganmelo saber.

ActiveWorkbook.Sheets("Consulta").Activate
celdo = Range("D2")
ActiveWorkbook.Sheets(celdo).Activate

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
MsgBox Prompt:="Cargar Tarifa Individual", Title:="Recordatorio"
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox1.AddItem "Celulosa (Incluye Fluff)"
ListBox1.AddItem "Madera (Incluye Moldura - Rema - Blanks)"
ListBox1.AddItem "MDF"
ListBox1.AddItem "PBO"
ActiveWorkbook.Sheets("Necesario2").Activate
Range("B2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
celdin = ActiveCell.Address
Range("B2:" + celdin).Select
Selection.Copy
ActiveWorkbook.Sheets("Consulta").Activate
celdo = Range("D2")
ActiveWorkbook.Sheets(celdo).Activate
Range("AJ1").Select
ActiveSheet.Paste
Range("AJ1").Select
Do While ActiveCell <> Empty
Rem AQUI ME DA EL ERROR
ListBox2.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub