Como elimino un registro de la hoja1 al seleccionar un ítem del listbox1

Quiero eliminar un registro de la hoja1 al seleccionar un ítem del listbox1 sin que la base de datos tenga formato de tabla, tengo el siguiente código pero no puedo modificarlo. Alguien me puede ayudar.

Private Sub CmdEliminar_Click()
'Sheets("Catalogo de cuentas").Select
'Range("A2").Select
'lbx_Cuentas.Clear
Dim index As Long

For index = 0 To lbx_Cuentas.ListCount - 1
If lbx_Cuentas.Selected(index) = True Then
Rows(lbx_Cuentas.ListIndex + 2).EntireRow.Delete
End If
Next index

End Sub