Array/Matriz: guardar en variables valores repetid

   Hola, estoy usando una matriz para buscar Artículos repetidos en la
columna “R” de hoja Excel (ASG 61,10,2) y guardarlos en variables. 

Al Seleccionar OptionButton1:

La condición es, si un Artículo
(“R”) del Almacén (“J”) = 200,
tienen cantidad Cnt!Asig (“V”) < cantidad Cnt!Ord (“U”) entonces que se sumen cada una de esas cantidades y se guarden en
variables. Así debe recorrer hasta el final de toda la hoja (ASG 61,10,2) para
guardar cantidades de todos los artículos que cumplan esa condición en
variables para después cargarlos en un ListBox 

Al Seleccionar OptionButton2:

-Se debe repetir el mismo evento para el Almacén 300

Al Seleccionar OptionButton3:

-Se debe repetir el mismo evento para el Almacén 400

Al Seleccionar OptionButton4:

-Se debe repetir el mismo evento para el Almacén 300

Al Seleccionar CheckBox1:

La condición es, si un Artículo
(“R”) del Almacén (“J”) =200, Área (“AN”) = 5° y 6° tienen cantidad Cnt!Asig (“V”) < cantidad Cnt!Ord (“U”) entonces que se sumen cada
una de esas cantidades y se guarden en variables. Así debe recorrer hasta el
final de toda la hoja (ASG 61,10,2) para guardar cantidades de todos los
artículos que cumplan esa condición en variables para después cargarlos en un
ListBox 

Al Seleccionar CheckBox2:

-Se debe repetir el mismo evento para el Almacén 200 y Área RM

Al Seleccionar CheckBox3:

-Se debe repetir el mismo evento para el Almacén 200 y Área Norte

Adjunto el Archivo. La duda que aún no logro resolver esta en esta parte
del código:

UltimaFila = WS1_TS.Range("J" & Rows.Count).End(xlUp).Row
'Obtiene el valor de la ultima fila con datos

Dim Arr As Variant 'Vector que contendra los datos de la hoja
Worksheets("ASG 61,10,2")

    Arr = WS1_TS.Range("A2:AT" & UltimaFila).Value2

Dim VR_CD_Quiebre200() As Variant ''Vector adimensional que se
transformara en bidimensional para contener los datos de la busqueda y luego
cargarlos en el listbox Detalle_Quiebre

    For I = LBound(Arr) To
UBound(Arr) 'Recorre desde el indice menor hasta el mayor de la hoja de excel

        Almacen_Quiebre200 =
Arr(I, 10)

        'Articulo_Quiebre200 =
Arr(I, 18)

        If Almacen_Quiebre200 = 200 And Arr(I, 23) < Arr(I, 21) And _

Application.WorksheetFunction.CountIf(Range("R2:R" &
UBound(Arr)), Range("R" & LBound(Arr))) > 1 Then

           Articulo_Quiebre200 =
Range("R" & LBound(Arr)).Value 'cargar en una variable los
articulos repetidos