XL 2016 Procédure trop longue

Tpacpc · 17 Avril 2020

Bonjour,

Ci-dessous un code qui teste toutes les checkbox, mais à l'exécution il me dit que la procédure est trop longue.
IL doit etre possible de l'abreger avec des boucles mais je ne sais pas comment faire
quelqu'un pourrait-il m'aider SVP

Sub CommandButton1_Click()
Worksheets("EXPORT_TEST_VUTEST").Range("B55000").Clear

If CheckBox1.Value = True Then
Sheets("TEST").Range("B1111").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox2.Value = True Then
Sheets("TEST").Range("B1212").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox3.Value = True Then
Sheets("TEST").Range("B1313").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox4.Value = True Then
Sheets("TEST").Range("B1414").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox5.Value = True Then
Sheets("TEST").Range("B1515").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox6.Value = True Then
Sheets("TEST").Range("B1616").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox7.Value = True Then
Sheets("TEST").Range("B1717").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox8.Value = True Then
Sheets("TEST").Range("B1818").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox9.Value = True Then
Sheets("TEST").Range("B1919").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox10.Value = True Then
Sheets("TEST").Range("B2020").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox11.Value = True Then
Sheets("TEST").Range("B2121").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox12.Value = True Then
Sheets("TEST").Range("B2222").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox13.Value = True Then
Sheets("TEST").Range("B2323").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox14.Value = True Then
Sheets("TEST").Range("B2424").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox15.Value = True Then
Sheets("TEST").Range("B2525").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox16.Value = True Then
Sheets("TEST").Range("B2626").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox17.Value = True Then
Sheets("TEST").Range("B3030").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox18.Value = True Then
Sheets("TEST").Range("B3131").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox19.Value = True Then
Sheets("TEST").Range("B3232").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox20.Value = True Then
Sheets("TEST").Range("B3333").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox21.Value = True Then
Sheets("TEST").Range("B3434").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox22.Value = True Then
Sheets("TEST").Range("B3535").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox23.Value = True Then
Sheets("TEST").Range("B3636").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox24.Value = True Then
Sheets("TEST").Range("B3737").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox25.Value = True Then
Sheets("TEST").Range("B3838").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox26.Value = True Then
Sheets("TEST").Range("B4242").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox27.Value = True Then
Sheets("TEST").Range("B4343").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox28.Value = True Then
Sheets("TEST").Range("B4444").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox29.Value = True Then
Sheets("TEST").Range("B45245").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox30.Value = True Then
Sheets("TEST").Range("B4646").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox31.Value = True Then
Sheets("TEST").Range("B4747").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox32.Value = True Then
Sheets("TEST").Range("B4848").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox33.Value = True Then
Sheets("TEST").Range("B4949").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox34.Value = True Then
Sheets("TEST").Range("B5353").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox35.Value = True Then
Sheets("TEST").Range("B5454").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox36.Value = True Then
Sheets("TEST").Range("B5555").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox37.Value = True Then
Sheets("TEST").Range("B5656").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox38.Value = True Then
Sheets("TEST").Range("B5757").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox39.Value = True Then
Sheets("TEST").Range("B5858").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox40.Value = True Then
Sheets("TEST").Range("B5959").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox41.Value = True Then
Sheets("TEST").Range("B6060").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox42.Value = True Then
Sheets("TEST").Range("B6161").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox43.Value = True Then
Sheets("TEST").Range("B6262").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox44.Value = True Then
Sheets("TEST").Range("B6363").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox45.Value = True Then
Sheets("TEST").Range("B6464").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox46.Value = True Then
Sheets("TEST").Range("B6565").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox47.Value = True Then
Sheets("TEST").Range("B6666").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox48.Value = True Then
Sheets("TEST").Range("B6767").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox49.Value = True Then
Sheets("TEST").Range("B6868").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox50.Value = True Then
Sheets("TEST").Range("B6969").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox51.Value = True Then
Sheets("TEST").Range("B7070").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox52.Value = True Then
Sheets("TEST").Range("B7171").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox53.Value = True Then
Sheets("TEST").Range("B7272").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox54.Value = True Then
Sheets("TEST").Range("B7373").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox55.Value = True Then
Sheets("TEST").Range("B7474").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox56.Value = True Then
Sheets("TEST").Range("B7575").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox57.Value = True Then
Sheets("TEST").Range("B7676").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox58.Value = True Then
Sheets("TEST").Range("B7777").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox59.Value = True Then
Sheets("TEST").Range("B7878").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox60.Value = True Then
Sheets("TEST").Range("B7979").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox61.Value = True Then
Sheets("TEST").Range("B8080").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox62.Value = True Then
Sheets("TEST").Range("B8181").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox63.Value = True Then
Sheets("TEST").Range("B8282").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox64.Value = True Then
Sheets("TEST").Range("B8383").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox65.Value = True Then
Sheets("TEST").Range("B8484").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox66.Value = True Then
Sheets("TEST").Range("B8585").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox67.Value = True Then
Sheets("TEST").Range("B8686").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox68.Value = True Then
Sheets("TEST").Range("B8787").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox69.Value = True Then
Sheets("TEST").Range("B8888").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox70.Value = True Then
Sheets("TEST").Range("B8989").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox71.Value = True Then
Sheets("TEST").Range("B9090").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox72.Value = True Then
Sheets("TEST").Range("B9191").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox73.Value = True Then
Sheets("TEST").Range("B9292").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox74.Value = True Then
Sheets("TEST").Range("B9393").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox75.Value = True Then
Sheets("TEST").Range("B9494").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox76.Value = True Then
Sheets("TEST").Range("B9595").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox77.Value = True Then
Sheets("TEST").Range("B9696").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox78.Value = True Then
Sheets("TEST").Range("B9797").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox79.Value = True Then
Sheets("TEST").Range("B9898").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox80.Value = True Then
Sheets("TEST").Range("B9999").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox81.Value = True Then
Sheets("TEST").Range("B100100").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox82.Value = True Then
Sheets("TEST").Range("B101101").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox83.Value = True Then
Sheets("TEST").Range("B102102").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox84.Value = True Then
Sheets("TEST").Range("B103103").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox85.Value = True Then
Sheets("TEST").Range("B104104").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox86.Value = True Then
Sheets("TEST").Range("B105105").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox87.Value = True Then
Sheets("TEST").Range("B106106").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox88.Value = True Then
Sheets("TEST").Range("B107107").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox89.Value = True Then
Sheets("TEST").Range("B108108").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox90.Value = True Then
Sheets("TEST").Range("B109109").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox91.Value = True Then
Sheets("TEST").Range("B110110").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox92.Value = True Then
Sheets("TEST").Range("B111111").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox93.Value = True Then
Sheets("TEST").Range("B112112").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox94.Value = True Then
Sheets("TEST").Range("B113113").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox95.Value = True Then
Sheets("TEST").Range("B114114").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox96.Value = True Then
Sheets("TEST").Range("B115115").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox97.Value = True Then
Sheets("TEST").Range("B116116").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox98.Value = True Then
Sheets("TEST").Range("B117117").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox99.Value = True Then
Sheets("TEST").Range("B118118").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox100.Value = True Then
Sheets("TEST").Range("B119119").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox101.Value = True Then
Sheets("TEST").Range("B120120").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox102.Value = True Then
Sheets("TEST").Range("B121121").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox103.Value = True Then
Sheets("TEST").Range("B122122").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox104.Value = True Then
Sheets("TEST").Range("B123123").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox105.Value = True Then
Sheets("TEST").Range("B124124").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox106.Value = True Then
Sheets("TEST").Range("B125125").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox107.Value = True Then
Sheets("TEST").Range("B126126").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox108.Value = True Then
Sheets("TEST").Range("B127127").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox109.Value = True Then
Sheets("TEST").Range("B128128").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox110.Value = True Then
Sheets("TEST").Range("B129129").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox111.Value = True Then
Sheets("TEST").Range("B130130").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox112.Value = True Then
Sheets("TEST").Range("B131131").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox113.Value = True Then
Sheets("TEST").Range("B132132").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox114.Value = True Then
Sheets("TEST").Range("B133133").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox115.Value = True Then
Sheets("TEST").Range("B134134").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox116.Value = True Then
Sheets("TEST").Range("B135135").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox117.Value = True Then
Sheets("TEST").Range("B136136").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox118.Value = True Then
Sheets("TEST").Range("B140140").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox119.Value = True Then
Sheets("TEST").Range("B141141").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox120.Value = True Then
Sheets("TEST").Range("B142142").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox121.Value = True Then
Sheets("TEST").Range("B143143").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox122.Value = True Then
Sheets("TEST").Range("B144144").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox123.Value = True Then
Sheets("TEST").Range("B145145").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox124.Value = True Then
Sheets("TEST").Range("B146146").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox125.Value = True Then
Sheets("TEST").Range("B147147").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox126.Value = True Then
Sheets("TEST").Range("B148148").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox127.Value = True Then
Sheets("TEST").Range("B149149").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox128.Value = True Then
Sheets("TEST").Range("B150150").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox129.Value = True Then
Sheets("TEST").Range("B151151").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox130.Value = True Then
Sheets("TEST").Range("B152152").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox131.Value = True Then
Sheets("TEST").Range("B153153").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox132.Value = True Then
Sheets("TEST").Range("B154154").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox133.Value = True Then
Sheets("TEST").Range("B155155").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox134.Value = True Then
Sheets("TEST").Range("B156156").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox135.Value = True Then
Sheets("TEST").Range("B157157").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox136.Value = True Then
Sheets("TEST").Range("B158158").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox137.Value = True Then
Sheets("TEST").Range("B159159").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox138.Value = True Then
Sheets("TEST").Range("B160160").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox139.Value = True Then
Sheets("TEST").Range("B161161").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox140.Value = True Then
Sheets("TEST").Range("B162162").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox141.Value = True Then
Sheets("TEST").Range("B163163").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox142.Value = True Then
Sheets("TEST").Range("B164164").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox143.Value = True Then
Sheets("TEST").Range("B165165").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox144.Value = True Then
Sheets("TEST").Range("B166166").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox145.Value = True Then
Sheets("TEST").Range("B167167").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox146.Value = True Then
Sheets("TEST").Range("B168168").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox147.Value = True Then
Sheets("TEST").Range("B169169").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox148.Value = True Then
Sheets("TEST").Range("B170170").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox149.Value = True Then
Sheets("TEST").Range("B171171").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox150.Value = True Then
Sheets("TEST").Range("B172172").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox151.Value = True Then
Sheets("TEST").Range("B173173").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox152.Value = True Then
Sheets("TEST").Range("B174174").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox153.Value = True Then
Sheets("TEST").Range("B175175").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox154.Value = True Then
Sheets("TEST").Range("B176176").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox155.Value = True Then
Sheets("TEST").Range("B177177").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox156.Value = True Then
Sheets("TEST").Range("B178178").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox157.Value = True Then
Sheets("TEST").Range("B179179").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox158.Value = True Then
Sheets("TEST").Range("B180180").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox159.Value = True Then
Sheets("TEST").Range("B181181").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox160.Value = True Then
Sheets("TEST").Range("B182182").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox161.Value = True Then
Sheets("TEST").Range("B183183").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox162.Value = True Then
Sheets("TEST").Range("B184184").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox163.Value = True Then
Sheets("TEST").Range("B185185").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox164.Value = True Then
Sheets("TEST").Range("B186186").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox165.Value = True Then
Sheets("TEST").Range("B187187").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox166.Value = True Then
Sheets("TEST").Range("B188188").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox167.Value = True Then
Sheets("TEST").Range("B189189").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox168.Value = True Then
Sheets("TEST").Range("B190190").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox169.Value = True Then
Sheets("TEST").Range("B191191").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox170.Value = True Then
Sheets("TEST").Range("B192192").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox171.Value = True Then
Sheets("TEST").Range("B193193").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox172.Value = True Then
Sheets("TEST").Range("B194194").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox173.Value = True Then
Sheets("TEST").Range("B195195").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox174.Value = True Then
Sheets("TEST").Range("B196196").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox175.Value = True Then
Sheets("TEST").Range("B200200").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox176.Value = True Then
Sheets("TEST").Range("B201201").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox177.Value = True Then
Sheets("TEST").Range("B205205").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox178.Value = True Then
Sheets("TEST").Range("B206206").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox179.Value = True Then
Sheets("TEST").Range("B207207").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox180.Value = True Then
Sheets("TEST").Range("B208208").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox181.Value = True Then
Sheets("TEST").Range("B209209").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox182.Value = True Then
Sheets("TEST").Range("B210210").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox183.Value = True Then
Sheets("TEST").Range("B214214").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox184.Value = True Then
Sheets("TEST").Range("B215215").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox185.Value = True Then
Sheets("TEST").Range("B216216").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox186.Value = True Then
Sheets("TEST").Range("B217217").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox187.Value = True Then
Sheets("TEST").Range("B218218").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox188.Value = True Then
Sheets("TEST").Range("B219219").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox189.Value = True Then
Sheets("TEST").Range("B223223").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox190.Value = True Then
Sheets("TEST").Range("B224224").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox191.Value = True Then
Sheets("TEST").Range("B225225").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox192.Value = True Then
Sheets("TEST").Range("B226226").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox193.Value = True Then
Sheets("TEST").Range("B230230").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox194.Value = True Then
Sheets("TEST").Range("B231231").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox195.Value = True Then
Sheets("TEST").Range("B232232").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox196.Value = True Then
Sheets("TEST").Range("B233233").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox197.Value = True Then
Sheets("TEST").Range("B234234").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox198.Value = True Then
Sheets("TEST").Range("B235235").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox199.Value = True Then
Sheets("TEST").Range("B236236").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox200.Value = True Then
Sheets("TEST").Range("B237237").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox201.Value = True Then
Sheets("TEST").Range("B238238").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox202.Value = True Then
Sheets("TEST").Range("B239239").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox203.Value = True Then
Sheets("TEST").Range("B240240").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox204.Value = True Then
Sheets("TEST").Range("B241241").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox205.Value = True Then
Sheets("TEST").Range("B242242").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox206.Value = True Then
Sheets("TEST").Range("B243243").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox207.Value = True Then
Sheets("TEST").Range("B244244").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox208.Value = True Then
Sheets("TEST").Range("B245245").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox209.Value = True Then
Sheets("TEST").Range("B246246").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox210.Value = True Then
Sheets("TEST").Range("B247247").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox211.Value = True Then
Sheets("TEST").Range("B248248").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox212.Value = True Then
Sheets("TEST").Range("B249249").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox213.Value = True Then
Sheets("TEST").Range("B250250").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox214.Value = True Then
Sheets("TEST").Range("B251251").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox215.Value = True Then
Sheets("TEST").Range("B255255").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox216.Value = True Then
Sheets("TEST").Range("B256256").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox217.Value = True Then
Sheets("TEST").Range("B257257").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox218.Value = True Then
Sheets("TEST").Range("B258258").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox219.Value = True Then
Sheets("TEST").Range("B259259").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox220.Value = True Then
Sheets("TEST").Range("B260260").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox221.Value = True Then
Sheets("TEST").Range("B261261").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox222.Value = True Then
Sheets("TEST").Range("B262262").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox223.Value = True Then
Sheets("TEST").Range("B263263").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox224.Value = True Then
Sheets("TEST").Range("B264264").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox225.Value = True Then
Sheets("TEST").Range("B265265").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox226.Value = True Then
Sheets("TEST").Range("B266266").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox227.Value = True Then
Sheets("TEST").Range("B267267").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox228.Value = True Then
Sheets("TEST").Range("B268268").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox229.Value = True Then
Sheets("TEST").Range("B269269").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox230.Value = True Then
Sheets("TEST").Range("B270270").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox231.Value = True Then
Sheets("TEST").Range("B274274").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox232.Value = True Then
Sheets("TEST").Range("B275275").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox233.Value = True Then
Sheets("TEST").Range("B276276").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox234.Value = True Then
Sheets("TEST").Range("B277277").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox235.Value = True Then
Sheets("TEST").Range("B278278").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox236.Value = True Then
Sheets("TEST").Range("279279").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox237.Value = True Then
Sheets("TEST").Range("B280280").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox238.Value = True Then
Sheets("TEST").Range("B281281").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox239.Value = True Then
Sheets("TEST").Range("B282282").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox240.Value = True Then
Sheets("TEST").Range("B286286").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox241.Value = True Then
Sheets("TEST").Range("B287287").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox242.Value = True Then
Sheets("TEST").Range("B288288").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox243.Value = True Then
Sheets("TEST").Range("B292292").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox244.Value = True Then
Sheets("TEST").Range("B293293").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox245.Value = True Then
Sheets("TEST").Range("B294294").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox246.Value = True Then
Sheets("TEST").Range("B295295").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox247.Value = True Then
Sheets("TEST").Range("B296296").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox248.Value = True Then
Sheets("TEST").Range("B297297").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox249.Value = True Then
Sheets("TEST").Range("B298298").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox250.Value = True Then
Sheets("TEST").Range("B299299").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox251.Value = True Then
Sheets("TEST").Range("B300300").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox252.Value = True Then
Sheets("TEST").Range("B301301").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox253.Value = True Then
Sheets("TEST").Range("B302302").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox254.Value = True Then
Sheets("TEST").Range("B303303").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox255.Value = True Then
Sheets("TEST").Range("B304304").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox256.Value = True Then
Sheets("TEST").Range("B305305").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox257.Value = True Then
Sheets("TEST").Range("B306306").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox258.Value = True Then
Sheets("TEST").Range("B307307").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox259.Value = True Then
Sheets("TEST").Range("B308308").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox260.Value = True Then
Sheets("TEST").Range("B309309").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox261.Value = True Then
Sheets("TEST").Range("B310310").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox262.Value = True Then
Sheets("TEST").Range("B311311").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox263.Value = True Then
Sheets("TEST").Range("B315315").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox264.Value = True Then
Sheets("TEST").Range("B316316").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox265.Value = True Then
Sheets("TEST").Range("B317317").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox266.Value = True Then
Sheets("TEST").Range("B318318").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox267.Value = True Then
Sheets("TEST").Range("B319319").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox268.Value = True Then
Sheets("TEST").Range("B320320").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox269.Value = True Then
Sheets("TEST").Range("B321321").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox270.Value = True Then
Sheets("TEST").Range("B322322").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox271.Value = True Then
Sheets("TEST").Range("B323323").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox272.Value = True Then
Sheets("TEST").Range("B324324").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox273.Value = True Then
Sheets("TEST").Range("B325325").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox274.Value = True Then
Sheets("TEST").Range("B326326").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox275.Value = True Then
Sheets("TEST").Range("B327327").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox276.Value = True Then
Sheets("TEST").Range("B328328").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox277.Value = True Then
Sheets("TEST").Range("B329329").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox278.Value = True Then
Sheets("TEST").Range("B330330").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox279.Value = True Then
Sheets("TEST").Range("B331331").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox280.Value = True Then
Sheets("TEST").Range("B335335").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox281.Value = True Then
Sheets("TEST").Range("B336336").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox282.Value = True Then
Sheets("TEST").Range("B337337").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox283.Value = True Then
Sheets("TEST").Range("B338338").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox284.Value = True Then
Sheets("TEST").Range("B339339").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox285.Value = True Then
Sheets("TEST").Range("B340340").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox286.Value = True Then
Sheets("TEST").Range("B341341").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox287.Value = True Then
Sheets("TEST").Range("B342342").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox288.Value = True Then
Sheets("TEST").Range("B343343").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox289.Value = True Then
Sheets("TEST").Range("B344344").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox290.Value = True Then
Sheets("TEST").Range("B345345").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox291.Value = True Then
Sheets("TEST").Range("B349349").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox292.Value = True Then
Sheets("TEST").Range("B350350").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox293.Value = True Then
Sheets("TEST").Range("B351351").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox294.Value = True Then
Sheets("TEST").Range("B352352").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox295.Value = True Then
Sheets("TEST").Range("B353353").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox296.Value = True Then
Sheets("TEST").Range("B354354").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox297.Value = True Then
Sheets("TEST").Range("B355355").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox298.Value = True Then
Sheets("TEST").Range("B356356").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox299.Value = True Then
Sheets("TEST").Range("B357357").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox300.Value = True Then
Sheets("TEST").Range("B358358").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox301.Value = True Then
Sheets("TEST").Range("B359359").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox302.Value = True Then
Sheets("TEST").Range("B360360").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox303.Value = True Then
Sheets("TEST").Range("B361361").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox304.Value = True Then
Sheets("TEST").Range("B362362").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox305.Value = True Then
Sheets("TEST").Range("B363363").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox306.Value = True Then
Sheets("TEST").Range("B364364").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox307.Value = True Then
Sheets("TEST").Range("B365365").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox308.Value = True Then
Sheets("TEST").Range("B366366").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox309.Value = True Then
Sheets("TEST").Range("B367367").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox310.Value = True Then
Sheets("TEST").Range("B368368").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox311.Value = True Then
Sheets("TEST").Range("B369369").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox312.Value = True Then
Sheets("TEST").Range("B370370").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox313.Value = True Then
Sheets("TEST").Range("B371371").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox314.Value = True Then
Sheets("TEST").Range("B372372").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox315.Value = True Then
Sheets("TEST").Range("B373373").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox316.Value = True Then
Sheets("TEST").Range("B374374").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox317.Value = True Then
Sheets("TEST").Range("B375375").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox318.Value = True Then
Sheets("TEST").Range("B376376").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox319.Value = True Then
Sheets("TEST").Range("B377377").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox320.Value = True Then
Sheets("TEST").Range("B381381").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox321.Value = True Then
Sheets("TEST").Range("B382382").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox322.Value = True Then
Sheets("TEST").Range("B383383").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox323.Value = True Then
Sheets("TEST").Range("B384384").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox324.Value = True Then
Sheets("TEST").Range("B385385").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox325.Value = True Then
Sheets("TEST").Range("B386386").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox326.Value = True Then
Sheets("TEST").Range("B387387").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox327.Value = True Then
Sheets("TEST").Range("B388388").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox328.Value = True Then
Sheets("TEST").Range("B389389").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox329.Value = True Then
Sheets("TEST").Range("B390390").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox330.Value = True Then
Sheets("TEST").Range("B391391").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox331.Value = True Then
Sheets("TEST").Range("B392392").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox332.Value = True Then
Sheets("TEST").Range("B393393").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox333.Value = True Then
Sheets("TEST").Range("B394394").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox334.Value = True Then
Sheets("TEST").Range("B395395").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox335.Value = True Then
Sheets("TEST").Range("B396396").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox336.Value = True Then
Sheets("TEST").Range("B397397").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox337.Value = True Then
Sheets("TEST").Range("B398398").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox338.Value = True Then
Sheets("TEST").Range("B399399").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox339.Value = True Then
Sheets("TEST").Range("B400400").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox340.Value = True Then
Sheets("TEST").Range("B404404").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox341.Value = True Then
Sheets("TEST").Range("B405405").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox342.Value = True Then
Sheets("TEST").Range("B406406").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox343.Value = True Then
Sheets("TEST").Range("B407407").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox344.Value = True Then
Sheets("TEST").Range("B408408").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox345.Value = True Then
Sheets("TEST").Range("B409409").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox346.Value = True Then
Sheets("TEST").Range("B410410").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox347.Value = True Then
Sheets("TEST").Range("B411411").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox348.Value = True Then
Sheets("TEST").Range("B412412").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox349.Value = True Then
Sheets("TEST").Range("B413413").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox350.Value = True Then
Sheets("TEST").Range("B414414").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox351.Value = True Then
Sheets("TEST").Range("B415415").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox352.Value = True Then
Sheets("TEST").Range("B416416").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox353.Value = True Then
Sheets("TEST").Range("B417417").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox354.Value = True Then
Sheets("TEST").Range("B418418").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox355.Value = True Then
Sheets("TEST").Range("B419419").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox356.Value = True Then
Sheets("TEST").Range("B420420").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox357.Value = True Then
Sheets("TEST").Range("B421421").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox358.Value = True Then
Sheets("TEST").Range("B425425").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox359.Value = True Then
Sheets("TEST").Range("B426426").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox360.Value = True Then
Sheets("TEST").Range("B427427").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox361.Value = True Then
Sheets("TEST").Range("B428428").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox362.Value = True Then
Sheets("TEST").Range("B429429").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox363.Value = True Then
Sheets("TEST").Range("B430430").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox364.Value = True Then
Sheets("TEST").Range("B431431").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox365.Value = True Then
Sheets("TEST").Range("B432432").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox366.Value = True Then
Sheets("TEST").Range("B433433").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox367.Value = True Then
Sheets("TEST").Range("B434434").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox368.Value = True Then
Sheets("TEST").Range("B435435").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox369.Value = True Then
Sheets("TEST").Range("B436436").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox370.Value = True Then
Sheets("TEST").Range("B437437").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox371.Value = True Then
Sheets("TEST").Range("B438438").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox372.Value = True Then
Sheets("TEST").Range("B439439").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox373.Value = True Then
Sheets("TEST").Range("B440440").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox374.Value = True Then
Sheets("TEST").Range("B441441").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox375.Value = True Then
Sheets("TEST").Range("B442442").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox376.Value = True Then
Sheets("TEST").Range("B443443").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox377.Value = True Then
Sheets("TEST").Range("B444444").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox378.Value = True Then
Sheets("TEST").Range("B445445").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox379.Value = True Then
Sheets("TEST").Range("B446446").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox380.Value = True Then
Sheets("TEST").Range("B447447").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox381.Value = True Then
Sheets("TEST").Range("B448448").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox382.Value = True Then
Sheets("TEST").Range("B449449").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox383.Value = True Then
Sheets("TEST").Range("B450450").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox384.Value = True Then
Sheets("TEST").Range("B451451").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox385.Value = True Then
Sheets("TEST").Range("B452452").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox386.Value = True Then
Sheets("TEST").Range("B453453").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox387.Value = True Then
Sheets("TEST").Range("B454454").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox388.Value = True Then
Sheets("TEST").Range("B455455").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox389.Value = True Then
Sheets("TEST").Range("B456456").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox390.Value = True Then
Sheets("TEST").Range("B457457").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox391.Value = True Then
Sheets("TEST").Range("B458458").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox392.Value = True Then
Sheets("TEST").Range("B459459").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox393.Value = True Then
Sheets("TEST").Range("B460460").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox394.Value = True Then
Sheets("TEST").Range("B461461").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox395.Value = True Then
Sheets("TEST").Range("B462462").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox396.Value = True Then
Sheets("TEST").Range("B463463").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox397.Value = True Then
Sheets("TEST").Range("B464464").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox398.Value = True Then
Sheets("TEST").Range("B465465").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox399.Value = True Then
Sheets("TEST").Range("B466466").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox400.Value = True Then
Sheets("TEST").Range("B467467").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox401.Value = True Then
Sheets("TEST").Range("B468468").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox402.Value = True Then
Sheets("TEST").Range("B469469").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox403.Value = True Then
Sheets("TEST").Range("B470470").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox404.Value = True Then
Sheets("TEST").Range("B471471").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox405.Value = True Then
Sheets("TEST").Range("B472472").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox406.Value = True Then
Sheets("TEST").Range("B473473").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox407.Value = True Then
Sheets("TEST").Range("B474474").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox408.Value = True Then
Sheets("TEST").Range("B475475").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox409.Value = True Then
Sheets("TEST").Range("B476476").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox410.Value = True Then
Sheets("TEST").Range("B477477").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox411.Value = True Then
Sheets("TEST").Range("B478478").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox412.Value = True Then
Sheets("TEST").Range("B479479").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox413.Value = True Then
Sheets("TEST").Range("B480480").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox414.Value = True Then
Sheets("TEST").Range("B481481").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox415.Value = True Then
Sheets("TEST").Range("B482482").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox416.Value = True Then
Sheets("TEST").Range("B483483").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox417.Value = True Then
Sheets("TEST").Range("B484484").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox418.Value = True Then
Sheets("TEST").Range("B485485").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox419.Value = True Then
Sheets("TEST").Range("B486486").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox420.Value = True Then
Sheets("TEST").Range("B487487").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox421.Value = True Then
Sheets("TEST").Range("B488488").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox422.Value = True Then
Sheets("TEST").Range("B489489").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox423.Value = True Then
Sheets("TEST").Range("B490490").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox424.Value = True Then
Sheets("TEST").Range("B491491").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox425.Value = True Then
Sheets("TEST").Range("B492492").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox426.Value = True Then
Sheets("TEST").Range("B493493").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox427.Value = True Then
Sheets("TEST").Range("B494494").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox428.Value = True Then
Sheets("TEST").Range("B495495").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox429.Value = True Then
Sheets("TEST").Range("B496496").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox430.Value = True Then
Sheets("TEST").Range("B497497").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox431.Value = True Then
Sheets("TEST").Range("B498498").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox432.Value = True Then
Sheets("TEST").Range("B499499").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox433.Value = True Then
Sheets("TEST").Range("B503503").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox434.Value = True Then
Sheets("TEST").Range("B504504").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox435.Value = True Then
Sheets("TEST").Range("B505505").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox436.Value = True Then
Sheets("TEST").Range("B506506").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox437.Value = True Then
Sheets("TEST").Range("B507507").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox438.Value = True Then
Sheets("TEST").Range("B508508").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox439.Value = True Then
Sheets("TEST").Range("B509509").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox440.Value = True Then
Sheets("TEST").Range("B510510").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox441.Value = True Then
Sheets("TEST").Range("B511511").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox442.Value = True Then
Sheets("TEST").Range("B512512").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox443.Value = True Then
Sheets("TEST").Range("B513513").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox444.Value = True Then
Sheets("TEST").Range("B514514").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox445.Value = True Then
Sheets("TEST").Range("B515515").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox446.Value = True Then
Sheets("TEST").Range("B516516").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox447.Value = True Then
Sheets("TEST").Range("B517517").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox448.Value = True Then
Sheets("TEST").Range("B518518").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox449.Value = True Then
Sheets("TEST").Range("B519519").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox450.Value = True Then
Sheets("TEST").Range("B520520").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox451.Value = True Then
Sheets("TEST").Range("B521521").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox452.Value = True Then
Sheets("TEST").Range("B522522").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox453.Value = True Then
Sheets("TEST").Range("B523523").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox454.Value = True Then
Sheets("TEST").Range("B524524").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox455.Value = True Then
Sheets("TEST").Range("B525525").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox456.Value = True Then
Sheets("TEST").Range("B526526").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox457.Value = True Then
Sheets("TEST").Range("B527527").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox458.Value = True Then
Sheets("TEST").Range("B528528").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox459.Value = True Then
Sheets("TEST").Range("B529529").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox460.Value = True Then
Sheets("TEST").Range("B530530").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox461.Value = True Then
Sheets("TEST").Range("B531531").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox462.Value = True Then
Sheets("TEST").Range("B532532").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox463.Value = True Then
Sheets("TEST").Range("B533533").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox464.Value = True Then
Sheets("TEST").Range("B534534").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox465.Value = True Then
Sheets("TEST").Range("B538538").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox466.Value = True Then
Sheets("TEST").Range("B539539").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox467.Value = True Then
Sheets("TEST").Range("B540540").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox468.Value = True Then
Sheets("TEST").Range("B541541").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox469.Value = True Then
Sheets("TEST").Range("B542542").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox470.Value = True Then
Sheets("TEST").Range("B543543").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox471.Value = True Then
Sheets("TEST").Range("B544544").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox472.Value = True Then
Sheets("TEST").Range("B548548").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox473.Value = True Then
Sheets("TEST").Range("B549549").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox474.Value = True Then
Sheets("TEST").Range("B550550").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox475.Value = True Then
Sheets("TEST").Range("B551551").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox476.Value = True Then
Sheets("TEST").Range("B552552").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox477.Value = True Then
Sheets("TEST").Range("B553553").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox478.Value = True Then
Sheets("TEST").Range("B554554").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox479.Value = True Then
Sheets("TEST").Range("B555555").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox480.Value = True Then
Sheets("TEST").Range("B556556").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox481.Value = True Then
Sheets("TEST").Range("B557557").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox482.Value = True Then
Sheets("TEST").Range("B558558").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox483.Value = True Then
Sheets("TEST").Range("B559559").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox484.Value = True Then
Sheets("TEST").Range("B560560").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox485.Value = True Then
Sheets("TEST").Range("B561561").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox486.Value = True Then
Sheets("TEST").Range("B562562").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox487.Value = True Then
Sheets("TEST").Range("B563563").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox488.Value = True Then
Sheets("TEST").Range("B564564").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox489.Value = True Then
Sheets("TEST").Range("B565565").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox490.Value = True Then
Sheets("TEST").Range("B566566").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox491.Value = True Then
Sheets("TEST").Range("B567567").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox492.Value = True Then
Sheets("TEST").Range("B571571").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox493.Value = True Then
Sheets("TEST").Range("B572572").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox494.Value = True Then
Sheets("TEST").Range("B573573").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox495.Value = True Then
Sheets("TEST").Range("B574574").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox496.Value = True Then
Sheets("TEST").Range("B575575").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox497.Value = True Then
Sheets("TEST").Range("B576576").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox498.Value = True Then
Sheets("TEST").Range("B577577").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox499.Value = True Then
Sheets("TEST").Range("B578578").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox500.Value = True Then
Sheets("TEST").Range("B579579").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox501.Value = True Then
Sheets("TEST").Range("B580580").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox502.Value = True Then
Sheets("TEST").Range("B581581").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox503.Value = True Then
Sheets("TEST").Range("B582582").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox504.Value = True Then
Sheets("TEST").Range("B583583").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox505.Value = True Then
Sheets("TEST").Range("B584584").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox506.Value = True Then
Sheets("TEST").Range("B585585").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox507.Value = True Then
Sheets("TEST").Range("B586586").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox508.Value = True Then
Sheets("TEST").Range("B587587").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox509.Value = True Then
Sheets("TEST").Range("B588588").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox510.Value = True Then
Sheets("TEST").Range("B589589").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox511.Value = True Then
Sheets("TEST").Range("B590590").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox512.Value = True Then
Sheets("TEST").Range("B591591").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox513.Value = True Then
Sheets("TEST").Range("B592592").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox514.Value = True Then
Sheets("TEST").Range("B593593").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox515.Value = True Then
Sheets("TEST").Range("B594594").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox516.Value = True Then
Sheets("TEST").Range("B595595").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox517.Value = True Then
Sheets("TEST").Range("B596596").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox518.Value = True Then
Sheets("TEST").Range("B597597").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox519.Value = True Then
Sheets("TEST").Range("B598598").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox520.Value = True Then
Sheets("TEST").Range("B599599").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox521.Value = True Then
Sheets("TEST").Range("B600600").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox522.Value = True Then
Sheets("TEST").Range("B6016601").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox523.Value = True Then
Sheets("TEST").Range("B602602").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox524.Value = True Then
Sheets("TEST").Range("B603603").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox525.Value = True Then
Sheets("TEST").Range("B604604").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox526.Value = True Then
Sheets("TEST").Range("B605605").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox527.Value = True Then
Sheets("TEST").Range("B606606").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox528.Value = True Then
Sheets("TEST").Range("B607607").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox529.Value = True Then
Sheets("TEST").Range("B608608").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox530.Value = True Then
Sheets("TEST").Range("B609609").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox531.Value = True Then
Sheets("TEST").Range("B610610").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox532.Value = True Then
Sheets("TEST").Range("B611611").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox533.Value = True Then
Sheets("TEST").Range("B612612").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox534.Value = True Then
Sheets("TEST").Range("B613613").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox535.Value = True Then
Sheets("TEST").Range("B614614").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox536.Value = True Then
Sheets("TEST").Range("B615615").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox537.Value = True Then
Sheets("TEST").Range("B616616").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox538.Value = True Then
Sheets("TEST").Range("B617617").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox539.Value = True Then
Sheets("TEST").Range("B618618").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox540.Value = True Then
Sheets("TEST").Range("B619619").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox541.Value = True Then
Sheets("TEST").Range("B620620").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox542.Value = True Then
Sheets("TEST").Range("B621621").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox543.Value = True Then
Sheets("TEST").Range("B622622").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox544.Value = True Then
Sheets("TEST").Range("B623623").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox545.Value = True Then
Sheets("TEST").Range("B624624").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox546.Value = True Then
Sheets("TEST").Range("B6256251").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox547.Value = True Then
Sheets("TEST").Range("B626626").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox548.Value = True Then
Sheets("TEST").Range("B627627").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox549.Value = True Then
Sheets("TEST").Range("B631631").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox550.Value = True Then
Sheets("TEST").Range("B632632").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox551.Value = True Then
Sheets("TEST").Range("B633633").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox552.Value = True Then
Sheets("TEST").Range("B634634").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox553.Value = True Then
Sheets("TEST").Range("B638638").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox554.Value = True Then
Sheets("TEST").Range("B639639").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox555.Value = True Then
Sheets("TEST").Range("B640640").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox556.Value = True Then
Sheets("TEST").Range("B641641").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox557.Value = True Then
Sheets("TEST").Range("B642642").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox558.Value = True Then
Sheets("TEST").Range("B643643").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox559.Value = True Then
Sheets("TEST").Range("B644644").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox550.Value = True Then
Sheets("TEST").Range("B645645").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox561.Value = True Then
Sheets("TEST").Range("B646646").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox562.Value = True Then
Sheets("TEST").Range("B647647").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox563.Value = True Then
Sheets("TEST").Range("B648648").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox564.Value = True Then
Sheets("TEST").Range("B649649").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox565.Value = True Then
Sheets("TEST").Range("B650650").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox566.Value = True Then
Sheets("TEST").Range("B651651").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox567.Value = True Then
Sheets("TEST").Range("B652652").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox568.Value = True Then
Sheets("TEST").Range("B653653").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox569.Value = True Then
Sheets("TEST").Range("B654654").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox570.Value = True Then
Sheets("TEST").Range("B655655").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox571.Value = True Then
Sheets("TEST").Range("B656656").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox572.Value = True Then
Sheets("TEST").Range("B657657").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox573.Value = True Then
Sheets("TEST").Range("B658658").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox574.Value = True Then
Sheets("TEST").Range("B659659").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox575.Value = True Then
Sheets("TEST").Range("B660660").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox576.Value = True Then
Sheets("TEST").Range("B661661").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox577.Value = True Then
Sheets("TEST").Range("B662662").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox578.Value = True Then
Sheets("TEST").Range("B663663").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox579.Value = True Then
Sheets("TEST").Range("B664664").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox580.Value = True Then
Sheets("TEST").Range("B665665").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox581.Value = True Then
Sheets("TEST").Range("B666666").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox582.Value = True Then
Sheets("TEST").Range("B667667").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox583.Value = True Then
Sheets("TEST").Range("B668668").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox584.Value = True Then
Sheets("TEST").Range("B669669").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox585.Value = True Then
Sheets("TEST").Range("B670670").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox586.Value = True Then
Sheets("TEST").Range("B671671").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox587.Value = True Then
Sheets("TEST").Range("B672672").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox588.Value = True Then
Sheets("TEST").Range("B673673").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox589.Value = True Then
Sheets("TEST").Range("B674674").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox590.Value = True Then
Sheets("TEST").Range("B675675").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox591.Value = True Then
Sheets("TEST").Range("B676676").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox592.Value = True Then
Sheets("TEST").Range("B677677").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox593.Value = True Then
Sheets("TEST").Range("B678678").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox594.Value = True Then
Sheets("TEST").Range("B679679").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox595.Value = True Then
Sheets("TEST").Range("B680680").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox596.Value = True Then
Sheets("TEST").Range("B681681").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox597.Value = True Then
Sheets("TEST").Range("B682682").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox598.Value = True Then
Sheets("TEST").Range("B683683").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox599.Value = True Then
Sheets("TEST").Range("B684684").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox600.Value = True Then
Sheets("TEST").Range("B685685").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox601.Value = True Then
Sheets("TEST").Range("B686686").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox602.Value = True Then
Sheets("TEST").Range("B687687").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox603.Value = True Then
Sheets("TEST").Range("B688688").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox604.Value = True Then
Sheets("TEST").Range("B689689").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox605.Value = True Then
Sheets("TEST").Range("B690690").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox606.Value = True Then
Sheets("TEST").Range("B691691").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox607.Value = True Then
Sheets("TEST").Range("B692692").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox608.Value = True Then
Sheets("TEST").Range("B693693").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox609.Value = True Then
Sheets("TEST").Range("B694694").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox600.Value = True Then
Sheets("TEST").Range("B695695").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox611.Value = True Then
Sheets("TEST").Range("B696696").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox612.Value = True Then
Sheets("TEST").Range("B697697").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox613.Value = True Then
Sheets("TEST").Range("B698698").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox614.Value = True Then
Sheets("TEST").Range("B699699").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox615.Value = True Then
Sheets("TEST").Range("B700700").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox616.Value = True Then
Sheets("TEST").Range("B701701").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox617.Value = True Then
Sheets("TEST").Range("B702702").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox618.Value = True Then
Sheets("TEST").Range("B703703").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox619.Value = True Then
Sheets("TEST").Range("B704704").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox620.Value = True Then
Sheets("TEST").Range("B705705").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox621.Value = True Then
Sheets("TEST").Range("B706706").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox622.Value = True Then
Sheets("TEST").Range("B707707").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox623.Value = True Then
Sheets("TEST").Range("B708708").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox624.Value = True Then
Sheets("TEST").Range("B709709").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox625.Value = True Then
Sheets("TEST").Range("B710710").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox626.Value = True Then
Sheets("TEST").Range("B711711").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox627.Value = True Then
Sheets("TEST").Range("B712712").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox628.Value = True Then
Sheets("TEST").Range("B713713").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox629.Value = True Then
Sheets("TEST").Range("B714714").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox630.Value = True Then
Sheets("TEST").Range("B715715").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox631.Value = True Then
Sheets("TEST").Range("B716716").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox632.Value = True Then
Sheets("TEST").Range("B717717").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox633.Value = True Then
Sheets("TEST").Range("B718718").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox634.Value = True Then
Sheets("TEST").Range("B719719").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox635.Value = True Then
Sheets("TEST").Range("B720720").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox636.Value = True Then
Sheets("TEST").Range("B721721").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox637.Value = True Then
Sheets("TEST").Range("B722722").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox638.Value = True Then
Sheets("TEST").Range("B723723").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox639.Value = True Then
Sheets("TEST").Range("B724724").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox640.Value = True Then
Sheets("TEST").Range("B725725").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox641.Value = True Then
Sheets("TEST").Range("B726726").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox642.Value = True Then
Sheets("TEST").Range("B727727").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox643.Value = True Then
Sheets("TEST").Range("B728728").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox644.Value = True Then
Sheets("TEST").Range("B729729").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox645.Value = True Then
Sheets("TEST").Range("B730730").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox646.Value = True Then
Sheets("TEST").Range("B731731").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox647.Value = True Then
Sheets("TEST").Range("B732732").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox648.Value = True Then
Sheets("TEST").Range("B733733").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox649.Value = True Then
Sheets("TEST").Range("B734734").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox650.Value = True Then
Sheets("TEST").Range("B735735").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox651.Value = True Then
Sheets("TEST").Range("B736736").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox652.Value = True Then
Sheets("TEST").Range("B737737").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox653.Value = True Then
Sheets("TEST").Range("B738738").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox654.Value = True Then
Sheets("TEST").Range("B739739").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox655.Value = True Then
Sheets("TEST").Range("B740740").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox656.Value = True Then
Sheets("TEST").Range("B741741").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox657.Value = True Then
Sheets("TEST").Range("B742742").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox658.Value = True Then
Sheets("TEST").Range("B743743").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox659.Value = True Then
Sheets("TEST").Range("B744744").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox660.Value = True Then
Sheets("TEST").Range("B745745").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox661.Value = True Then
Sheets("TEST").Range("B746746").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox662.Value = True Then
Sheets("TEST").Range("B747747").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox663.Value = True Then
Sheets("TEST").Range("B748748").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox664.Value = True Then
Sheets("TEST").Range("B749749").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox665.Value = True Then
Sheets("TEST").Range("B750750").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox666.Value = True Then
Sheets("TEST").Range("B751751").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox667.Value = True Then
Sheets("TEST").Range("B752752").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox668.Value = True Then
Sheets("TEST").Range("B753753").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox669.Value = True Then
Sheets("TEST").Range("B754754").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox670.Value = True Then
Sheets("TEST").Range("B75755").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox671.Value = True Then
Sheets("TEST").Range("B756756").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox672.Value = True Then
Sheets("TEST").Range("B757757").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox673.Value = True Then
Sheets("TEST").Range("B758758").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox674.Value = True Then
Sheets("TEST").Range("B759759").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox675.Value = True Then
Sheets("TEST").Range("B760760").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox676.Value = True Then
Sheets("TEST").Range("B761761").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox677.Value = True Then
Sheets("TEST").Range("B762762").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox678.Value = True Then
Sheets("TEST").Range("B763763").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox679.Value = True Then
Sheets("TEST").Range("B764764").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox680.Value = True Then
Sheets("TEST").Range("B765765").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox681.Value = True Then
Sheets("TEST").Range("B766766").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox682.Value = True Then
Sheets("TEST").Range("B767767").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox683.Value = True Then
Sheets("TEST").Range("B768768").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox684.Value = True Then
Sheets("TEST").Range("B769769").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox685.Value = True Then
Sheets("TEST").Range("B770770").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox686.Value = True Then
Sheets("TEST").Range("B771771").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox687.Value = True Then
Sheets("TEST").Range("B772772").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox688.Value = True Then
Sheets("TEST").Range("B773773").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox689.Value = True Then
Sheets("TEST").Range("B774774").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox690.Value = True Then
Sheets("TEST").Range("B775775").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox691.Value = True Then
Sheets("TEST").Range("B776776").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox692.Value = True Then
Sheets("TEST").Range("B777777").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox693.Value = True Then
Sheets("TEST").Range("B778778").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox694.Value = True Then
Sheets("TEST").Range("B779779").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox695.Value = True Then
Sheets("TEST").Range("B780780").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox696.Value = True Then
Sheets("TEST").Range("B781781").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox697.Value = True Then
Sheets("TEST").Range("B782782").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox698.Value = True Then
Sheets("TEST").Range("B783783").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox699.Value = True Then
Sheets("TEST").Range("B784784").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox700.Value = True Then
Sheets("TEST").Range("B785785").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox701.Value = True Then
Sheets("TEST").Range("B786786").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox702.Value = True Then
Sheets("TEST").Range("B787787").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox703.Value = True Then
Sheets("TEST").Range("B788788").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox704.Value = True Then
Sheets("TEST").Range("B789789").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox705.Value = True Then
Sheets("TEST").Range("B790790").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox706.Value = True Then
Sheets("TEST").Range("B791791").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox707.Value = True Then
Sheets("TEST").Range("B792792").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox708.Value = True Then
Sheets("TEST").Range("B793793").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox709.Value = True Then
Sheets("TEST").Range("B794794").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox710.Value = True Then
Sheets("TEST").Range("B795795").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox711.Value = True Then
Sheets("TEST").Range("B796796").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox712.Value = True Then
Sheets("TEST").Range("B797797").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox713.Value = True Then
Sheets("TEST").Range("B798798").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox714.Value = True Then
Sheets("TEST").Range("B799799").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox715.Value = True Then
Sheets("TEST").Range("B800800").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox716.Value = True Then
Sheets("TEST").Range("B801801").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox717.Value = True Then
Sheets("TEST").Range("B802802").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox718.Value = True Then
Sheets("TEST").Range("B803803").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox719.Value = True Then
Sheets("TEST").Range("B804804").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox710.Value = True Then
Sheets("TEST").Range("B805805").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox721.Value = True Then
Sheets("TEST").Range("B806806").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox722.Value = True Then
Sheets("TEST").Range("B807807").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox723.Value = True Then
Sheets("TEST").Range("B808808").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox724.Value = True Then
Sheets("TEST").Range("B809809").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox725.Value = True Then
Sheets("TEST").Range("B810810").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox726.Value = True Then
Sheets("TEST").Range("B811811").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox727.Value = True Then
Sheets("TEST").Range("B812812").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox728.Value = True Then
Sheets("TEST").Range("B813813").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox729.Value = True Then
Sheets("TEST").Range("B817817").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox730.Value = True Then
Sheets("TEST").Range("B818818").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox731.Value = True Then
Sheets("TEST").Range("B819819").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox732.Value = True Then
Sheets("TEST").Range("B820820").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox733.Value = True Then
Sheets("TEST").Range("B821821").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox734.Value = True Then
Sheets("TEST").Range("B822822").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox735.Value = True Then
Sheets("TEST").Range("B823823").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox736.Value = True Then
Sheets("TEST").Range("B824824").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox737.Value = True Then
Sheets("TEST").Range("B825825").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox738.Value = True Then
Sheets("TEST").Range("B826826").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox739.Value = True Then
Sheets("TEST").Range("B827827").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox740.Value = True Then
Sheets("TEST").Range("B828828").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox741.Value = True Then
Sheets("TEST").Range("B829829").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox742.Value = True Then
Sheets("TEST").Range("B830830").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox743.Value = True Then
Sheets("TEST").Range("B831831").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox744.Value = True Then
Sheets("TEST").Range("B832832").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox745.Value = True Then
Sheets("TEST").Range("B833833").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox746.Value = True Then
Sheets("TEST").Range("B834834").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox747.Value = True Then
Sheets("TEST").Range("B835835").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox748.Value = True Then
Sheets("TEST").Range("B836836").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox749.Value = True Then
Sheets("TEST").Range("B837837").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox750.Value = True Then
Sheets("TEST").Range("B838838").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox751.Value = True Then
Sheets("TEST").Range("B839839").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox752.Value = True Then
Sheets("TEST").Range("B840840").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox753.Value = True Then
Sheets("TEST").Range("B841841").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox754.Value = True Then
Sheets("TEST").Range("B842842").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox755.Value = True Then
Sheets("TEST").Range("B843843").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox756.Value = True Then
Sheets("TEST").Range("B844844").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox757.Value = True Then
Sheets("TEST").Range("B845845").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox758.Value = True Then
Sheets("TEST").Range("B846846").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox759.Value = True Then
Sheets("TEST").Range("B847847").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox760.Value = True Then
Sheets("TEST").Range("B848848").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox761.Value = True Then
Sheets("TEST").Range("B849849").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox762.Value = True Then
Sheets("TEST").Range("B850850").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox763.Value = True Then
Sheets("TEST").Range("B851851").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox764.Value = True Then
Sheets("TEST").Range("B852852").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox765.Value = True Then
Sheets("TEST").Range("B853853").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox766.Value = True Then
Sheets("TEST").Range("B854185").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox767.Value = True Then
Sheets("TEST").Range("B855855").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox768.Value = True Then
Sheets("TEST").Range("B856856").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox769.Value = True Then
Sheets("TEST").Range("B857857").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox770.Value = True Then
Sheets("TEST").Range("B858858").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox771.Value = True Then
Sheets("TEST").Range("B859859").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox772.Value = True Then
Sheets("TEST").Range("B860860").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox773.Value = True Then
Sheets("TEST").Range("B861861").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox774.Value = True Then
Sheets("TEST").Range("B862862").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox775.Value = True Then
Sheets("TEST").Range("B863863").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox776.Value = True Then
Sheets("TEST").Range("B864864").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox777.Value = True Then
Sheets("TEST").Range("B865865").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox778.Value = True Then
Sheets("TEST").Range("B866866").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox779.Value = True Then
Sheets("TEST").Range("B867867").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox780.Value = True Then
Sheets("TEST").Range("B868868").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox781.Value = True Then
Sheets("TEST").Range("B869869").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox782.Value = True Then
Sheets("TEST").Range("B870870").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox783.Value = True Then
Sheets("TEST").Range("B871871").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox784.Value = True Then
Sheets("TEST").Range("B872872").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox785.Value = True Then
Sheets("TEST").Range("B873873").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox786.Value = True Then
Sheets("TEST").Range("B874874").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox787.Value = True Then
Sheets("TEST").Range("B875875").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox788.Value = True Then
Sheets("TEST").Range("B876876").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox789.Value = True Then
Sheets("TEST").Range("B877877").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox790.Value = True Then
Sheets("TEST").Range("B878878").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox791.Value = True Then
Sheets("TEST").Range("B879879").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox792.Value = True Then
Sheets("TEST").Range("B880880").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox793.Value = True Then
Sheets("TEST").Range("B881881").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox794.Value = True Then
Sheets("TEST").Range("B882882").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox795.Value = True Then
Sheets("TEST").Range("B883883").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox796.Value = True Then
Sheets("TEST").Range("B884884").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox797.Value = True Then
Sheets("TEST").Range("B885885").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox798.Value = True Then
Sheets("TEST").Range("B886886").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox799.Value = True Then
Sheets("TEST").Range("B887887").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox800.Value = True Then
Sheets("TEST").Range("B888888").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox801.Value = True Then
Sheets("TEST").Range("B889889").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox802.Value = True Then
Sheets("TEST").Range("B893893").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox803.Value = True Then
Sheets("TEST").Range("B894894").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox804.Value = True Then
Sheets("TEST").Range("B895895").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox805.Value = True Then
Sheets("TEST").Range("B896896").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox806.Value = True Then
Sheets("TEST").Range("B897897").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox807.Value = True Then
Sheets("TEST").Range("B898898").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox808.Value = True Then
Sheets("TEST").Range("B899899").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox809.Value = True Then
Sheets("TEST").Range("B900900").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox810.Value = True Then
Sheets("TEST").Range("B901901").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox811.Value = True Then
Sheets("TEST").Range("B902902").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox812.Value = True Then
Sheets("TEST").Range("B903903").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox813.Value = True Then
Sheets("TEST").Range("B904904").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox814.Value = True Then
Sheets("TEST").Range("B905905").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox815.Value = True Then
Sheets("TEST").Range("B906906").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox816.Value = True Then
Sheets("TEST").Range("B907907").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox817.Value = True Then
Sheets("TEST").Range("B908908").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox818.Value = True Then
Sheets("TEST").Range("B909909").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox819.Value = True Then
Sheets("TEST").Range("B910910").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox820.Value = True Then
Sheets("TEST").Range("B911911").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox821.Value = True Then
Sheets("TEST").Range("B912912").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox822.Value = True Then
Sheets("TEST").Range("B913913").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox823.Value = True Then
Sheets("TEST").Range("B914914").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox824.Value = True Then
Sheets("TEST").Range("B915915").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox825.Value = True Then
Sheets("TEST").Range("B916916").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox826.Value = True Then
Sheets("TEST").Range("B917917").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox827.Value = True Then
Sheets("TEST").Range("B918918").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox828.Value = True Then
Sheets("TEST").Range("B919919").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox829.Value = True Then
Sheets("TEST").Range("B920920").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox830.Value = True Then
Sheets("TEST").Range("B921921").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox831.Value = True Then
Sheets("TEST").Range("B922922").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox832.Value = True Then
Sheets("TEST").Range("B923923").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox833.Value = True Then
Sheets("TEST").Range("B924924").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox834.Value = True Then
Sheets("TEST").Range("B925925").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox835.Value = True Then
Sheets("TEST").Range("B926926").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox836.Value = True Then
Sheets("TEST").Range("B927927").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox837.Value = True Then
Sheets("TEST").Range("B928928").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox838.Value = True Then
Sheets("TEST").Range("B929929").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox839.Value = True Then
Sheets("TEST").Range("B930930").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox840.Value = True Then
Sheets("TEST").Range("B931931").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox841.Value = True Then
Sheets("TEST").Range("B932932").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox842.Value = True Then
Sheets("TEST").Range("B933933").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox843.Value = True Then
Sheets("TEST").Range("B934934").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox844.Value = True Then
Sheets("TEST").Range("B935935").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox845.Value = True Then
Sheets("TEST").Range("B936936").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox846.Value = True Then
Sheets("TEST").Range("B937937").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox847.Value = True Then
Sheets("TEST").Range("B938938").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox848.Value = True Then
Sheets("TEST").Range("B939939").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox849.Value = True Then
Sheets("TEST").Range("B940940").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox850.Value = True Then
Sheets("TEST").Range("B941941").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox851.Value = True Then
Sheets("TEST").Range("B942942").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox852.Value = True Then
Sheets("TEST").Range("B943943").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox853.Value = True Then
Sheets("TEST").Range("B944944").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox854.Value = True Then
Sheets("TEST").Range("B945945").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox855.Value = True Then
Sheets("TEST").Range("B946946").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox856.Value = True Then
Sheets("TEST").Range("B947947").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox857.Value = True Then
Sheets("TEST").Range("B948948").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox858.Value = True Then
Sheets("TEST").Range("B949949").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox859.Value = True Then
Sheets("TEST").Range("B950950").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox860.Value = True Then
Sheets("TEST").Range("B951951").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox861.Value = True Then
Sheets("TEST").Range("B952952").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox862.Value = True Then
Sheets("TEST").Range("B953953").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox863.Value = True Then
Sheets("TEST").Range("B954954").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox864.Value = True Then
Sheets("TEST").Range("B955955").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox865.Value = True Then
Sheets("TEST").Range("B956956").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox866.Value = True Then
Sheets("TEST").Range("B957957").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox867.Value = True Then
Sheets("TEST").Range("B958958").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox868.Value = True Then
Sheets("TEST").Range("B959959").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox869.Value = True Then
Sheets("TEST").Range("B960960").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox870.Value = True Then
Sheets("TEST").Range("B961961").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox871.Value = True Then
Sheets("TEST").Range("B962962").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox872.Value = True Then
Sheets("TEST").Range("B963963").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox873.Value = True Then
Sheets("TEST").Range("B964964").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox874.Value = True Then
Sheets("TEST").Range("B965965").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox875.Value = True Then
Sheets("TEST").Range("B969969").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox876.Value = True Then
Sheets("TEST").Range("B970970").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox877.Value = True Then
Sheets("TEST").Range("B971971").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox878.Value = True Then
Sheets("TEST").Range("B972972").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox879.Value = True Then
Sheets("TEST").Range("B973973").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox880.Value = True Then
Sheets("TEST").Range("B974974").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox881.Value = True Then
Sheets("TEST").Range("B975975").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox882.Value = True Then
Sheets("TEST").Range("B976976").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox883.Value = True Then
Sheets("TEST").Range("B977977").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox884.Value = True Then
Sheets("TEST").Range("B978978").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox885.Value = True Then
Sheets("TEST").Range("B979979").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox886.Value = True Then
Sheets("TEST").Range("B980980").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox887.Value = True Then
Sheets("TEST").Range("B981981").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox888.Value = True Then
Sheets("TEST").Range("B982982").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox889.Value = True Then
Sheets("TEST").Range("B983983").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox890.Value = True Then
Sheets("TEST").Range("B984984").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox891.Value = True Then
Sheets("TEST").Range("B985985").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox892.Value = True Then
Sheets("TEST").Range("B986986").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox893.Value = True Then
Sheets("TEST").Range("B987987").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox894.Value = True Then
Sheets("TEST").Range("B988988").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox895.Value = True Then
Sheets("TEST").Range("B989989").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox896.Value = True Then
Sheets("TEST").Range("B990990").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox897.Value = True Then
Sheets("TEST").Range("B991991").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox898.Value = True Then
Sheets("TEST").Range("B992992").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox899.Value = True Then
Sheets("TEST").Range("B993993").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox900.Value = True Then
Sheets("TEST").Range("B994994").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox901.Value = True Then
Sheets("TEST").Range("B995995").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox902.Value = True Then
Sheets("TEST").Range("B996996").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox903.Value = True Then
Sheets("TEST").Range("B997997").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox904.Value = True Then
Sheets("TEST").Range("B998998").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox905.Value = True Then
Sheets("TEST").Range("B999999").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox906.Value = True Then
Sheets("TEST").Range("B10001000").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox907.Value = True Then
Sheets("TEST").Range("B10011001").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox908.Value = True Then
Sheets("TEST").Range("B10021002").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox909.Value = True Then
Sheets("TEST").Range("B10031003").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox910.Value = True Then
Sheets("TEST").Range("B10041004").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox911.Value = True Then
Sheets("TEST").Range("B10051005").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox912.Value = True Then
Sheets("TEST").Range("B10061006").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox913.Value = True Then
Sheets("TEST").Range("B10071007").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox914.Value = True Then
Sheets("TEST").Range("B10081008").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox915.Value = True Then
Sheets("TEST").Range("B10091009").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox916.Value = True Then
Sheets("TEST").Range("B10101010").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox917.Value = True Then
Sheets("TEST").Range("B10111011").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox918.Value = True Then
Sheets("TEST").Range("B10121012").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox919.Value = True Then
Sheets("TEST").Range("B10131013").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox920.Value = True Then
Sheets("TEST").Range("B10141014").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox921.Value = True Then
Sheets("TEST").Range("B10151015").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox922.Value = True Then
Sheets("TEST").Range("B10161016").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox923.Value = True Then
Sheets("TEST").Range("B10171017").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox924.Value = True Then
Sheets("TEST").Range("B10181018").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox925.Value = True Then
Sheets("TEST").Range("B10191019").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox926.Value = True Then
Sheets("TEST").Range("B10201020").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox927.Value = True Then
Sheets("TEST").Range("B10211021").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox928.Value = True Then
Sheets("TEST").Range("B10221022").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox929.Value = True Then
Sheets("TEST").Range("B10231023").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox930.Value = True Then
Sheets("TEST").Range("B10241024").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox931.Value = True Then
Sheets("TEST").Range("B10251025").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox932.Value = True Then
Sheets("TEST").Range("B10261026").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox933.Value = True Then
Sheets("TEST").Range("B10271027").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox934.Value = True Then
Sheets("TEST").Range("B10281028").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox935.Value = True Then
Sheets("TEST").Range("B10291029").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox936.Value = True Then
Sheets("TEST").Range("B10301030").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox937.Value = True Then
Sheets("TEST").Range("B10311031").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox938.Value = True Then
Sheets("TEST").Range("B10321032").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox939.Value = True Then
Sheets("TEST").Range("B10331033").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox940.Value = True Then
Sheets("TEST").Range("B10341034").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox941.Value = True Then
Sheets("TEST").Range("B10351035").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox942.Value = True Then
Sheets("TEST").Range("B10361036").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox943.Value = True Then
Sheets("TEST").Range("B10371037").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox906.Value = True Then
Sheets("TEST").Range("B10001000").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox907.Value = True Then
Sheets("TEST").Range("B10011001").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox908.Value = True Then
Sheets("TEST").Range("B10021002").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox909.Value = True Then
Sheets("TEST").Range("B10031003").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox910.Value = True Then
Sheets("TEST").Range("B10041004").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox911.Value = True Then
Sheets("TEST").Range("B10051005").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox912.Value = True Then
Sheets("TEST").Range("B10061006").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox913.Value = True Then
Sheets("TEST").Range("B10071007").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox914.Value = True Then
Sheets("TEST").Range("B10081008").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox915.Value = True Then
Sheets("TEST").Range("B10091009").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox916.Value = True Then
Sheets("TEST").Range("B10101010").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox917.Value = True Then
Sheets("TEST").Range("B10111011").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox918.Value = True Then
Sheets("TEST").Range("B10121012").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox919.Value = True Then
Sheets("TEST").Range("B10131013").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox920.Value = True Then
Sheets("TEST").Range("B10141014").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox921.Value = True Then
Sheets("TEST").Range("B10151015").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox922.Value = True Then
Sheets("TEST").Range("B10161016").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox923.Value = True Then
Sheets("TEST").Range("B10171017").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox924.Value = True Then
Sheets("TEST").Range("B10181018").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox925.Value = True Then
Sheets("TEST").Range("B10191019").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox926.Value = True Then
Sheets("TEST").Range("B10201020").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox927.Value = True Then
Sheets("TEST").Range("B10211021").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox928.Value = True Then
Sheets("TEST").Range("B10221022").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox929.Value = True Then
Sheets("TEST").Range("B10231023").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox930.Value = True Then
Sheets("TEST").Range("B10241024").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox931.Value = True Then
Sheets("TEST").Range("B10251025").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox932.Value = True Then
Sheets("TEST").Range("B10261026").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox933.Value = True Then
Sheets("TEST").Range("B10271027").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox934.Value = True Then
Sheets("TEST").Range("B10281028").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox935.Value = True Then
Sheets("TEST").Range("B10291029").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox936.Value = True Then
Sheets("TEST").Range("B10301030").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox937.Value = True Then
Sheets("TEST").Range("B10311031").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox938.Value = True Then
Sheets("TEST").Range("B10321032").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox939.Value = True Then
Sheets("TEST").Range("B10331033").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox940.Value = True Then
Sheets("TEST").Range("B10341034").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox941.Value = True Then
Sheets("TEST").Range("B10351035").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox942.Value = True Then
Sheets("TEST").Range("B10361036").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox943.Value = True Then
Sheets("TEST").Range("B10371037").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox906.Value = True Then
Sheets("TEST").Range("B10001000").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox907.Value = True Then
Sheets("TEST").Range("B10011001").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox908.Value = True Then
Sheets("TEST").Range("B10021002").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox909.Value = True Then
Sheets("TEST").Range("B10031003").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox910.Value = True Then
Sheets("TEST").Range("B10041004").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox911.Value = True Then
Sheets("TEST").Range("B10051005").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox912.Value = True Then
Sheets("TEST").Range("B10061006").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox913.Value = True Then
Sheets("TEST").Range("B10071007").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox914.Value = True Then
Sheets("TEST").Range("B10081008").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox915.Value = True Then
Sheets("TEST").Range("B10091009").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox916.Value = True Then
Sheets("TEST").Range("B10101010").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox917.Value = True Then
Sheets("TEST").Range("B10111011").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox918.Value = True Then
Sheets("TEST").Range("B10121012").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox919.Value = True Then
Sheets("TEST").Range("B10131013").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox920.Value = True Then
Sheets("TEST").Range("B10141014").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox921.Value = True Then
Sheets("TEST").Range("B10151015").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox922.Value = True Then
Sheets("TEST").Range("B10161016").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox923.Value = True Then
Sheets("TEST").Range("B10171017").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox924.Value = True Then
Sheets("TEST").Range("B10181018").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox925.Value = True Then
Sheets("TEST").Range("B10191019").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox926.Value = True Then
Sheets("TEST").Range("B10201020").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox927.Value = True Then
Sheets("TEST").Range("B10211021").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox928.Value = True Then
Sheets("TEST").Range("B10221022").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox929.Value = True Then
Sheets("TEST").Range("B10231023").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox930.Value = True Then
Sheets("TEST").Range("B10241024").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox931.Value = True Then
Sheets("TEST").Range("B10251025").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox932.Value = True Then
Sheets("TEST").Range("B10261026").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox933.Value = True Then
Sheets("TEST").Range("B10271027").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox934.Value = True Then
Sheets("TEST").Range("B10281028").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox935.Value = True Then
Sheets("TEST").Range("B10291029").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox936.Value = True Then
Sheets("TEST").Range("B10301030").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox937.Value = True Then
Sheets("TEST").Range("B10311031").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox938.Value = True Then
Sheets("TEST").Range("B10321032").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox939.Value = True Then
Sheets("TEST").Range("B10331033").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox940.Value = True Then
Sheets("TEST").Range("B10341034").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox941.Value = True Then
Sheets("TEST").Range("B10351035").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox942.Value = True Then
Sheets("TEST").Range("B10361036").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox943.Value = True Then
Sheets("TEST").Range("B10371037").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox944.Value = True Then
Sheets("TEST").Range("B10381038").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox945.Value = True Then
Sheets("TEST").Range("B10391039").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox946.Value = True Then
Sheets("TEST").Range("B10401040").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox947.Value = True Then
Sheets("TEST").Range("B10411041").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox948.Value = True Then
Sheets("TEST").Range("B10421042").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox949.Value = True Then
Sheets("TEST").Range("B10431043").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox950.Value = True Then
Sheets("TEST").Range("B10441044").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox951.Value = True Then
Sheets("TEST").Range("B10451045").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox952.Value = True Then
Sheets("TEST").Range("B10461046").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox953.Value = True Then
Sheets("TEST").Range("B10471047").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox954.Value = True Then
Sheets("TEST").Range("B10481048").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox955.Value = True Then
Sheets("TEST").Range("B10491049").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox956.Value = True Then
Sheets("TEST").Range("B10501050").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox957.Value = True Then
Sheets("TEST").Range("B10511051").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox958.Value = True Then
Sheets("TEST").Range("B10521052").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox959.Value = True Then
Sheets("TEST").Range("B10531053").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox960.Value = True Then
Sheets("TEST").Range("B10541054").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox961.Value = True Then
Sheets("TEST").Range("B10551055").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox962.Value = True Then
Sheets("TEST").Range("B10561056").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox963.Value = True Then
Sheets("TEST").Range("B10571057").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox964.Value = True Then
Sheets("TEST").Range("B10581058").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox965.Value = True Then
Sheets("TEST").Range("B10591059").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox966.Value = True Then
Sheets("TEST").Range("B10601060").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox967.Value = True Then
Sheets("TEST").Range("B10611061").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox968.Value = True Then
Sheets("TEST").Range("B10621062").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox969.Value = True Then
Sheets("TEST").Range("B10631063").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox969.Value = True Then
Sheets("TEST").Range("B10641064").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox970.Value = True Then
Sheets("TEST").Range("B10651065").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox971.Value = True Then
Sheets("TEST").Range("B10661066").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox972.Value = True Then
Sheets("TEST").Range("B10671067").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox973.Value = True Then
Sheets("TEST").Range("B10681068").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox974.Value = True Then
Sheets("TEST").Range("B10691069").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox975.Value = True Then
Sheets("TEST").Range("B10701070").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox976.Value = True Then
Sheets("TEST").Range("B10711071").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox977.Value = True Then
Sheets("TEST").Range("B10721072").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox978.Value = True Then
Sheets("TEST").Range("B10731073").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox980.Value = True Then
Sheets("TEST").Range("B10741074").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox981.Value = True Then
Sheets("TEST").Range("B10751075").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox982.Value = True Then
Sheets("TEST").Range("B10761076").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox983.Value = True Then
Sheets("TEST").Range("B10771077").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox984.Value = True Then
Sheets("TEST").Range("B10781078").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox985.Value = True Then
Sheets("TEST").Range("B10791079").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox986.Value = True Then
Sheets("TEST").Range("B10801080").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox987.Value = True Then
Sheets("TEST").Range("B10811081").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox988.Value = True Then
Sheets("TEST").Range("B10821082").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox989.Value = True Then
Sheets("TEST").Range("B10831083").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox990.Value = True Then
Sheets("TEST").Range("B10841084").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox991.Value = True Then
Sheets("TEST").Range("B10851085").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox992.Value = True Then
Sheets("TEST").Range("B10861086").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox993.Value = True Then
Sheets("TEST").Range("B10871087").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox994.Value = True Then
Sheets("TEST").Range("B10881088").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox995.Value = True Then
Sheets("TEST").Range("B10891089").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox996.Value = True Then
Sheets("TEST").Range("B10931093").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox997.Value = True Then
Sheets("TEST").Range("B10941094").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox998.Value = True Then
Sheets("TEST").Range("B10951095").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox999.Value = True Then
Sheets("TEST").Range("B10961096").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1000.Value = True Then
Sheets("TEST").Range("B10971097").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox1001.Value = True Then
Sheets("TEST").Range("B10981098").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1002.Value = True Then
Sheets("TEST").Range("B10991099").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1003.Value = True Then
Sheets("TEST").Range("B11031103").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1004.Value = True Then
Sheets("TEST").Range("B11041104").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1005.Value = True Then
Sheets("TEST").Range("B11051105").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1006.Value = True Then
Sheets("TEST").Range("B11091109").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1007.Value = True Then
Sheets("TEST").Range("B11101110").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1008.Value = True Then
Sheets("TEST").Range("B11111111").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1009.Value = True Then
Sheets("TEST").Range("B11121112").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1010.Value = True Then
Sheets("TEST").Range("B11131113").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1011.Value = True Then
Sheets("TEST").Range("B11141114").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1012.Value = True Then
Sheets("TEST").Range("B11181118").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1013.Value = True Then
Sheets("TEST").Range("B11191119").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1014.Value = True Then
Sheets("TEST").Range("B11201120").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1015.Value = True Then
Sheets("TEST").Range("B11211121").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1016.Value = True Then
Sheets("TEST").Range("B11221122").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1017.Value = True Then
Sheets("TEST").Range("B11231123").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1018.Value = True Then
Sheets("TEST").Range("B11241124").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1019.Value = True Then
Sheets("TEST").Range("B11251125").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

If CheckBox1020.Value = True Then
Sheets("TEST").Range("B11261126").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1021.Value = True Then
Sheets("TEST").Range("B11271127").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1022.Value = True Then
Sheets("TEST").Range("B11281128").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1023.Value = True Then
Sheets("TEST").Range("B11291129").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1024.Value = True Then
Sheets("TEST").Range("B11301130").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1025.Value = True Then
Sheets("TEST").Range("B11311131").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1026.Value = True Then
Sheets("TEST").Range("B11321132").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1027.Value = True Then
Sheets("TEST").Range("B11331133").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1028.Value = True Then
Sheets("TEST").Range("B11341134").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1029.Value = True Then
Sheets("TEST").Range("B11351135").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1030.Value = True Then
Sheets("TEST").Range("B11361136").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1031.Value = True Then
Sheets("TEST").Range("B11371137").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1032.Value = True Then
Sheets("TEST").Range("B11381138").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1033.Value = True Then
Sheets("TEST").Range("B11421142").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1034.Value = True Then
Sheets("TEST").Range("B11431143").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1035.Value = True Then
Sheets("TEST").Range("B11441144").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1036.Value = True Then
Sheets("TEST").Range("B11451145").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1037.Value = True Then
Sheets("TEST").Range("B11461146").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If
If CheckBox1038.Value = True Then
Sheets("TEST").Range("B11471147").Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
End If

Sheets("EXPORT_TEST").Select

End Sub

JBARBE · 17 Avril 2020

Bonjour à tous,
Peut-être ceci :

VB:

X=11
For i = 1 To 1038
If CheckBox(i).Value = True Then
For j = 11 To 1147
j = X
Sheets("TEST").Range(Cells(j, 2), Cells(j, 4)).Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
X = X+1
exit for
Next j
End If
Next i

Bonne journée !

jmfmarques · 17 Avril 2020

Bonjour
On ne sait pas si ces checkboxes sont sur une feuille de calcul ou sur un userform.
Dans un cas comme dans l'autre, JBARBE, on ne peut s'y référer par un indice, comme tu le montres, mais autrement (et différemment selon que sur feuille ou sur userform).

quoi qu'il en soit : une factorisation est bien évidemment possible, mais un tel nombre de checkboxes révèle généralement un défaut de conception.

En attendant d'en savoir plus ....

JBARBE · 17 Avril 2020

Re,
En effet, ma macro est valide que si :
tout les CheckBox sont true ! ( alors comment faire !)
Erreur de ma part !
Mais 1038 CheckBox sur un userform c'est impossible je pense !
Attendons une réponse à la demande !
Bonne journée !

JBARBE · 17 Avril 2020

Re,
Modification de la macro prenant en compte les CheckBox False !
A tester quand même !

VB:

X = 10
For i = 1 To 1038
X = X + 1
If CheckBox(i).Value = True Then
For j = 11 To 1147
j = X
Sheets("TEST").Range(Cells(j, 2), Cells(j, 4)).Copy Sheets("EXPORT_TEST").Cells(Rows.Count, 2).End(xlUp)(2)
Exit For
Next j
End If
Next i

jmfmarques · 17 Avril 2020

à JBARBE
Tu n'as selon toute apparence pas compris le sens de mon message précédent.
Ceci :

VB:

CheckBox(i).Value

ne correspond à aucune notation acceptable, que ce soit sur une feuille de calcul ou (encore différent) sur un userform.

patricktoulon · 17 Avril 2020

bonjour
d’après ce que je vois chaque ligne copiée dépend d'un checkbox
si j’étais toi je ferais un "UNION" et copierais tout d'un coup a la fin
mais j'avoue que conceptuellement parlant c'est un peu bizarre

Tpacpc · 17 Avril 2020

Merci pour vos réponses
Mes checkbox sont sur une feuille
J'avais pensé également à faire un test sur la colonne A par exemple
Si "A1"=x then copy mais je ne sais pas si c'est possible de tester toutes les lignes sans répéter l'instruction pour chaque ligne

JBARBE · 17 Avril 2020

Re,
Tout compte fait cette demande me paraît incongru !
Mais je ne suis pas le seule à l'avoir observé !
Certes, je me suis amusé à faire des boucles comme il était demandé, mais est-ce bien raisonnable !
On attend toujours une réponse du demandeur !
: Réponse faite à l'instant !
Bonne journée

jmfmarques · 17 Avril 2020

Mes checkbox sont sur une feuille

Voici un exemple de la syntaxe qui permet de se référer aux checkboxes checkbox1 = checkbox3 sur la feuille de cacul active :

for k = 1 to 3
msgbox oleobjects("checkbox" & k).object.value
next

factoriser à partir de là serait simple, mais une telle conception est lourde alors que ces checkboxes pourraient avantageusement être remplacées par, sur chaque ligne concernée, une simple cellule contenant un "x" ou rien.
Là s'arrête maintenant ma participation.

XL 2016 Procédure trop longue

Tpacpc

XLDnaute Nouveau

JBARBE

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

JBARBE

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Tpacpc

XLDnaute Nouveau

JBARBE

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Discussions similaires