jamesmev
05-18-2016, 10:21 AM
I am an Excel Novice... I am trying to run this code and I am getting an error. I don't know how to shorten and still get the results needed. Please help!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("C26").Address Then _
Range("J6").Value = 1
If Target.Address = Range("C27").Address Then _
Range("J6").Value = 2
If Target.Address = Range("C28").Address Then _
Range("J6").Value = 3
If Target.Address = Range("C29").Address Then _
Range("J6").Value = 4
If Target.Address = Range("C30").Address Then _
Range("J6").Value = 5
If Target.Address = Range("C31").Address Then _
Range("J6").Value = 6
If Target.Address = Range("C32").Address Then _
Range("J6").Value = 7
If Target.Address = Range("C33").Address Then _
Range("J6").Value = 8
If Target.Address = Range("C34").Address Then _
Range("J6").Value = 9
If Target.Address = Range("C35").Address Then _
Range("J6").Value = 10
If Target.Address = Range("C36").Address Then _
Range("J6").Value = 11
If Target.Address = Range("C37").Address Then _
Range("J6").Value = 12
If Target.Address = Range("C38").Address Then _
Range("J6").Value = 13
If Target.Address = Range("C39").Address Then _
Range("J6").Value = 14
If Target.Address = Range("C40").Address Then _
Range("J6").Value = 15
If Target.Address = Range("C41").Address Then _
Range("J6").Value = 16
If Target.Address = Range("C42").Address Then _
Range("J6").Value = 17
If Target.Address = Range("C43").Address Then _
Range("J6").Value = 18
If Target.Address = Range("C44").Address Then _
Range("J6").Value = 19
If Target.Address = Range("C45").Address Then _
Range("J6").Value = 20
If Target.Address = Range("C46").Address Then _
Range("J6").Value = 21
If Target.Address = Range("C47").Address Then _
Range("J6").Value = 22
If Target.Address = Range("C48").Address Then _
Range("J6").Value = 23
If Target.Address = Range("C49").Address Then _
Range("J6").Value = 24
If Target.Address = Range("C50").Address Then _
Range("J6").Value = 25
If Target.Address = Range("C51").Address Then _
Range("J6").Value = 26
If Target.Address = Range("C52").Address Then _
Range("J6").Value = 27
If Target.Address = Range("C53").Address Then _
Range("J6").Value = 28
If Target.Address = Range("C54").Address Then _
Range("J6").Value = 29
If Target.Address = Range("C55").Address Then _
Range("J6").Value = 30
If Target.Address = Range("C56").Address Then _
Range("J6").Value = 31
If Target.Address = Range("C57").Address Then _
Range("J6").Value = 32
If Target.Address = Range("C58").Address Then _
Range("J6").Value = 33
If Target.Address = Range("C59").Address Then _
Range("J6").Value = 34
If Target.Address = Range("C60").Address Then _
Range("J6").Value = 35
If Target.Address = Range("C61").Address Then _
Range("J6").Value = 36
If Target.Address = Range("C62").Address Then _
Range("J6").Value = 37
If Target.Address = Range("C63").Address Then _
Range("J6").Value = 38
If Target.Address = Range("C64").Address Then _
Range("J6").Value = 39
If Target.Address = Range("C65").Address Then _
Range("J6").Value = 40
If Target.Address = Range("C66").Address Then _
Range("J6").Value = 41
If Target.Address = Range("C67").Address Then _
Range("J6").Value = 42
If Target.Address = Range("C68").Address Then _
Range("J6").Value = 43
If Target.Address = Range("C69").Address Then _
Range("J6").Value = 44
If Target.Address = Range("C70").Address Then _
Range("J6").Value = 45
If Target.Address = Range("C71").Address Then _
Range("J6").Value = 46
If Target.Address = Range("C72").Address Then _
Range("J6").Value = 47
If Target.Address = Range("C73").Address Then _
Range("J6").Value = 48
If Target.Address = Range("C74").Address Then _
Range("J6").Value = 49
If Target.Address = Range("C75").Address Then _
Range("J6").Value = 50
If Target.Address = Range("C76").Address Then _
Range("J6").Value = 51
If Target.Address = Range("C77").Address Then _
Range("J6").Value = 52
If Target.Address = Range("C78").Address Then _
Range("J6").Value = 53
If Target.Address = Range("C79").Address Then _
Range("J6").Value = 54
If Target.Address = Range("C80").Address Then _
Range("J6").Value = 55
If Target.Address = Range("C81").Address Then _
Range("J6").Value = 56
If Target.Address = Range("C82").Address Then _
Range("J6").Value = 57
If Target.Address = Range("C83").Address Then _
Range("J6").Value = 58
If Target.Address = Range("C84").Address Then _
Range("J6").Value = 59
If Target.Address = Range("C85").Address Then _
Range("J6").Value = 60
If Target.Address = Range("C86").Address Then _
Range("J6").Value = 61
If Target.Address = Range("C87").Address Then _
Range("J6").Value = 62
If Target.Address = Range("C88").Address Then _
Range("J6").Value = 63
If Target.Address = Range("C89").Address Then _
Range("J6").Value = 64
If Target.Address = Range("C90").Address Then _
Range("J6").Value = 65
If Target.Address = Range("C91").Address Then _
Range("J6").Value = 66
If Target.Address = Range("C92").Address Then _
Range("J6").Value = 67
If Target.Address = Range("C93").Address Then _
Range("J6").Value = 68
If Target.Address = Range("C94").Address Then _
Range("J6").Value = 69
If Target.Address = Range("C95").Address Then _
Range("J6").Value = 70
If Target.Address = Range("C96").Address Then _
Range("J6").Value = 71
If Target.Address = Range("C97").Address Then _
Range("J6").Value = 72
If Target.Address = Range("C98").Address Then _
Range("J6").Value = 73
If Target.Address = Range("C99").Address Then _
Range("J6").Value = 74
If Target.Address = Range("C100").Address Then _
Range("J6").Value = 75
If Target.Address = Range("C101").Address Then _
Range("J6").Value = 76
If Target.Address = Range("C102").Address Then _
Range("J6").Value = 77
If Target.Address = Range("C103").Address Then _
Range("J6").Value = 78
If Target.Address = Range("C104").Address Then _
Range("J6").Value = 79
If Target.Address = Range("C105").Address Then _
Range("J6").Value = 80
If Target.Address = Range("C106").Address Then _
Range("J6").Value = 81
If Target.Address = Range("C107").Address Then _
Range("J6").Value = 82
If Target.Address = Range("C108").Address Then _
Range("J6").Value = 83
If Target.Address = Range("C109").Address Then _
Range("J6").Value = 84
If Target.Address = Range("C110").Address Then _
Range("J6").Value = 85
If Target.Address = Range("C111").Address Then _
Range("J6").Value = 86
If Target.Address = Range("C112").Address Then _
Range("J6").Value = 87
If Target.Address = Range("C113").Address Then _
Range("J6").Value = 88
If Target.Address = Range("C114").Address Then _
Range("J6").Value = 89
If Target.Address = Range("C115").Address Then _
Range("J6").Value = 90
If Target.Address = Range("C116").Address Then _
Range("J6").Value = 91
If Target.Address = Range("C117").Address Then _
Range("J6").Value = 92
If Target.Address = Range("C118").Address Then _
Range("J6").Value = 93
If Target.Address = Range("C119").Address Then _
Range("J6").Value = 94
If Target.Address = Range("C120").Address Then _
Range("J6").Value = 95
If Target.Address = Range("C121").Address Then _
Range("J6").Value = 96
If Target.Address = Range("C122").Address Then _
Range("J6").Value = 97
If Target.Address = Range("C123").Address Then _
Range("J6").Value = 98
If Target.Address = Range("C124").Address Then _
Range("J6").Value = 99
If Target.Address = Range("C125").Address Then _
Range("J6").Value = 100
If Target.Address = Range("C126").Address Then _
Range("J6").Value = 101
If Target.Address = Range("C127").Address Then _
Range("J6").Value = 102
If Target.Address = Range("C128").Address Then _
Range("J6").Value = 103
If Target.Address = Range("C129").Address Then _
Range("J6").Value = 104
If Target.Address = Range("C130").Address Then _
Range("J6").Value = 105
If Target.Address = Range("C131").Address Then _
Range("J6").Value = 106
If Target.Address = Range("C132").Address Then _
Range("J6").Value = 107
If Target.Address = Range("C133").Address Then _
Range("J6").Value = 108
If Target.Address = Range("C134").Address Then _
Range("J6").Value = 109
If Target.Address = Range("C135").Address Then _
Range("J6").Value = 110
If Target.Address = Range("C136").Address Then _
Range("J6").Value = 111
If Target.Address = Range("C137").Address Then _
Range("J6").Value = 112
If Target.Address = Range("C138").Address Then _
Range("J6").Value = 113
If Target.Address = Range("C139").Address Then _
Range("J6").Value = 114
If Target.Address = Range("C140").Address Then _
Range("J6").Value = 115
If Target.Address = Range("C141").Address Then _
Range("J6").Value = 116
If Target.Address = Range("C142").Address Then _
Range("J6").Value = 117
If Target.Address = Range("C143").Address Then _
Range("J6").Value = 118
If Target.Address = Range("C144").Address Then _
Range("J6").Value = 119
If Target.Address = Range("C145").Address Then _
Range("J6").Value = 120
If Target.Address = Range("C146").Address Then _
Range("J6").Value = 121
If Target.Address = Range("C147").Address Then _
Range("J6").Value = 122
If Target.Address = Range("C148").Address Then _
Range("J6").Value = 123
If Target.Address = Range("C149").Address Then _
Range("J6").Value = 124
If Target.Address = Range("C150").Address Then _
Range("J6").Value = 125
If Target.Address = Range("C151").Address Then _
Range("J6").Value = 126
If Target.Address = Range("C152").Address Then _
Range("J6").Value = 127
If Target.Address = Range("C153").Address Then _
Range("J6").Value = 128
If Target.Address = Range("C154").Address Then _
Range("J6").Value = 129
If Target.Address = Range("C155").Address Then _
Range("J6").Value = 130
If Target.Address = Range("C156").Address Then _
Range("J6").Value = 131
If Target.Address = Range("C157").Address Then _
Range("J6").Value = 132
If Target.Address = Range("C158").Address Then _
Range("J6").Value = 133
If Target.Address = Range("C159").Address Then _
Range("J6").Value = 134
If Target.Address = Range("C160").Address Then _
Range("J6").Value = 135
If Target.Address = Range("C161").Address Then _
Range("J6").Value = 136
If Target.Address = Range("C162").Address Then _
Range("J6").Value = 137
If Target.Address = Range("C163").Address Then _
Range("J6").Value = 138
If Target.Address = Range("C164").Address Then _
Range("J6").Value = 139
If Target.Address = Range("C165").Address Then _
Range("J6").Value = 140
If Target.Address = Range("C166").Address Then _
Range("J6").Value = 141
If Target.Address = Range("C167").Address Then _
Range("J6").Value = 142
If Target.Address = Range("C168").Address Then _
Range("J6").Value = 143
If Target.Address = Range("C169").Address Then _
Range("J6").Value = 144
If Target.Address = Range("C170").Address Then _
Range("J6").Value = 145
If Target.Address = Range("C171").Address Then _
Range("J6").Value = 146
If Target.Address = Range("C172").Address Then _
Range("J6").Value = 147
If Target.Address = Range("C173").Address Then _
Range("J6").Value = 148
If Target.Address = Range("C174").Address Then _
Range("J6").Value = 149
If Target.Address = Range("C175").Address Then _
Range("J6").Value = 150
If Target.Address = Range("C176").Address Then _
Range("J6").Value = 151
If Target.Address = Range("C177").Address Then _
Range("J6").Value = 152
If Target.Address = Range("C178").Address Then _
Range("J6").Value = 153
If Target.Address = Range("C179").Address Then _
Range("J6").Value = 154
If Target.Address = Range("C180").Address Then _
Range("J6").Value = 155
If Target.Address = Range("C181").Address Then _
Range("J6").Value = 156
If Target.Address = Range("C182").Address Then _
Range("J6").Value = 157
If Target.Address = Range("C183").Address Then _
Range("J6").Value = 158
If Target.Address = Range("C184").Address Then _
Range("J6").Value = 159
If Target.Address = Range("C185").Address Then _
Range("J6").Value = 160
If Target.Address = Range("C186").Address Then _
Range("J6").Value = 161
If Target.Address = Range("C187").Address Then _
Range("J6").Value = 162
If Target.Address = Range("C188").Address Then _
Range("J6").Value = 163
If Target.Address = Range("C189").Address Then _
Range("J6").Value = 164
If Target.Address = Range("C190").Address Then _
Range("J6").Value = 165
If Target.Address = Range("C191").Address Then _
Range("J6").Value = 166
If Target.Address = Range("C192").Address Then _
Range("J6").Value = 167
If Target.Address = Range("C193").Address Then _
Range("J6").Value = 168
If Target.Address = Range("C194").Address Then _
Range("J6").Value = 169
If Target.Address = Range("C195").Address Then _
Range("J6").Value = 170
If Target.Address = Range("C196").Address Then _
Range("J6").Value = 171
If Target.Address = Range("C197").Address Then _
Range("J6").Value = 172
If Target.Address = Range("C198").Address Then _
Range("J6").Value = 173
If Target.Address = Range("C199").Address Then _
Range("J6").Value = 174
If Target.Address = Range("C200").Address Then _
Range("J6").Value = 175
If Target.Address = Range("C201").Address Then _
Range("J6").Value = 176
If Target.Address = Range("C202").Address Then _
Range("J6").Value = 177
If Target.Address = Range("C203").Address Then _
Range("J6").Value = 178
If Target.Address = Range("C204").Address Then _
Range("J6").Value = 179
If Target.Address = Range("C205").Address Then _
Range("J6").Value = 180
If Target.Address = Range("C206").Address Then _
Range("J6").Value = 181
If Target.Address = Range("C207").Address Then _
Range("J6").Value = 182
If Target.Address = Range("C208").Address Then _
Range("J6").Value = 183
If Target.Address = Range("C209").Address Then _
Range("J6").Value = 184
If Target.Address = Range("C210").Address Then _
Range("J6").Value = 185
If Target.Address = Range("C211").Address Then _
Range("J6").Value = 186
If Target.Address = Range("C212").Address Then _
Range("J6").Value = 187
If Target.Address = Range("C213").Address Then _
Range("J6").Value = 188
If Target.Address = Range("C214").Address Then _
Range("J6").Value = 189
If Target.Address = Range("C215").Address Then _
Range("J6").Value = 190
If Target.Address = Range("C216").Address Then _
Range("J6").Value = 191
If Target.Address = Range("C217").Address Then _
Range("J6").Value = 192
If Target.Address = Range("C218").Address Then _
Range("J6").Value = 193
If Target.Address = Range("C219").Address Then _
Range("J6").Value = 194
If Target.Address = Range("C220").Address Then _
Range("J6").Value = 195
If Target.Address = Range("C221").Address Then _
Range("J6").Value = 196
If Target.Address = Range("C222").Address Then _
Range("J6").Value = 197
If Target.Address = Range("C223").Address Then _
Range("J6").Value = 198
If Target.Address = Range("C224").Address Then _
Range("J6").Value = 199
If Target.Address = Range("C225").Address Then _
Range("J6").Value = 200
If Target.Address = Range("C226").Address Then _
Range("J6").Value = 201
If Target.Address = Range("C227").Address Then _
Range("J6").Value = 202
If Target.Address = Range("C228").Address Then _
Range("J6").Value = 203
If Target.Address = Range("C229").Address Then _
Range("J6").Value = 204
If Target.Address = Range("C230").Address Then _
Range("J6").Value = 205
If Target.Address = Range("C231").Address Then _
Range("J6").Value = 206
If Target.Address = Range("C232").Address Then _
Range("J6").Value = 207
If Target.Address = Range("C233").Address Then _
Range("J6").Value = 208
If Target.Address = Range("C234").Address Then _
Range("J6").Value = 209
If Target.Address = Range("C235").Address Then _
Range("J6").Value = 210
If Target.Address = Range("C236").Address Then _
Range("J6").Value = 211
If Target.Address = Range("C237").Address Then _
Range("J6").Value = 212
If Target.Address = Range("C238").Address Then _
Range("J6").Value = 213
If Target.Address = Range("C239").Address Then _
Range("J6").Value = 214
If Target.Address = Range("C240").Address Then _
Range("J6").Value = 215
If Target.Address = Range("C241").Address Then _
Range("J6").Value = 216
If Target.Address = Range("C242").Address Then _
Range("J6").Value = 217
If Target.Address = Range("C243").Address Then _
Range("J6").Value = 218
If Target.Address = Range("C244").Address Then _
Range("J6").Value = 219
If Target.Address = Range("C245").Address Then _
Range("J6").Value = 220
If Target.Address = Range("C246").Address Then _
Range("J6").Value = 221
If Target.Address = Range("C247").Address Then _
Range("J6").Value = 222
If Target.Address = Range("C248").Address Then _
Range("J6").Value = 223
If Target.Address = Range("C249").Address Then _
Range("J6").Value = 224
If Target.Address = Range("C250").Address Then _
Range("J6").Value = 225
If Target.Address = Range("C251").Address Then _
Range("J6").Value = 226
If Target.Address = Range("C252").Address Then _
Range("J6").Value = 227
If Target.Address = Range("C253").Address Then _
Range("J6").Value = 228
If Target.Address = Range("C254").Address Then _
Range("J6").Value = 229
If Target.Address = Range("C255").Address Then _
Range("J6").Value = 230
If Target.Address = Range("C256").Address Then _
Range("J6").Value = 231
If Target.Address = Range("C257").Address Then _
Range("J6").Value = 232
If Target.Address = Range("C258").Address Then _
Range("J6").Value = 233
If Target.Address = Range("C259").Address Then _
Range("J6").Value = 234
If Target.Address = Range("C260").Address Then _
Range("J6").Value = 235
If Target.Address = Range("C261").Address Then _
Range("J6").Value = 236
If Target.Address = Range("C262").Address Then _
Range("J6").Value = 237
If Target.Address = Range("C263").Address Then _
Range("J6").Value = 238
If Target.Address = Range("C264").Address Then _
Range("J6").Value = 239
If Target.Address = Range("C265").Address Then _
Range("J6").Value = 240
If Target.Address = Range("C266").Address Then _
Range("J6").Value = 241
If Target.Address = Range("C267").Address Then _
Range("J6").Value = 242
If Target.Address = Range("C268").Address Then _
Range("J6").Value = 243
If Target.Address = Range("C269").Address Then _
Range("J6").Value = 244
If Target.Address = Range("C270").Address Then _
Range("J6").Value = 245
If Target.Address = Range("C271").Address Then _
Range("J6").Value = 246
If Target.Address = Range("C272").Address Then _
Range("J6").Value = 247
If Target.Address = Range("C273").Address Then _
Range("J6").Value = 248
If Target.Address = Range("C274").Address Then _
Range("J6").Value = 249
If Target.Address = Range("C275").Address Then _
Range("J6").Value = 250
If Target.Address = Range("C276").Address Then _
Range("J6").Value = 251
If Target.Address = Range("C277").Address Then _
Range("J6").Value = 252
If Target.Address = Range("C278").Address Then _
Range("J6").Value = 253
If Target.Address = Range("C279").Address Then _
Range("J6").Value = 254
If Target.Address = Range("C280").Address Then _
Range("J6").Value = 255
If Target.Address = Range("C281").Address Then _
Range("J6").Value = 256
If Target.Address = Range("C282").Address Then _
Range("J6").Value = 257
If Target.Address = Range("C283").Address Then _
Range("J6").Value = 258
If Target.Address = Range("C284").Address Then _
Range("J6").Value = 259
If Target.Address = Range("C285").Address Then _
Range("J6").Value = 260
If Target.Address = Range("C286").Address Then _
Range("J6").Value = 261
If Target.Address = Range("C287").Address Then _
Range("J6").Value = 262
If Target.Address = Range("C288").Address Then _
Range("J6").Value = 263
If Target.Address = Range("C289").Address Then _
Range("J6").Value = 264
If Target.Address = Range("C290").Address Then _
Range("J6").Value = 265
If Target.Address = Range("C291").Address Then _
Range("J6").Value = 266
If Target.Address = Range("C292").Address Then _
Range("J6").Value = 267
If Target.Address = Range("C293").Address Then _
Range("J6").Value = 268
If Target.Address = Range("C294").Address Then _
Range("J6").Value = 270
If Target.Address = Range("C295").Address Then _
Range("J6").Value = 272
If Target.Address = Range("C296").Address Then _
Range("J6").Value = 273
If Target.Address = Range("C297").Address Then _
Range("J6").Value = 275
If Target.Address = Range("C298").Address Then _
Range("J6").Value = 277
If Target.Address = Range("C299").Address Then _
Range("J6").Value = 279
If Target.Address = Range("C300").Address Then _
Range("J6").Value = 280
If Target.Address = Range("C301").Address Then _
Range("J6").Value = 281
If Target.Address = Range("C302").Address Then _
Range("J6").Value = 282
If Target.Address = Range("C303").Address Then _
Range("J6").Value = 283
If Target.Address = Range("C304").Address Then _
Range("J6").Value = 284
If Target.Address = Range("C305").Address Then _
Range("J6").Value = 285
If Target.Address = Range("C306").Address Then _
Range("J6").Value = 286
If Target.Address = Range("C307").Address Then _
Range("J6").Value = 287
If Target.Address = Range("C308").Address Then _
Range("J6").Value = 288
If Target.Address = Range("C309").Address Then _
Range("J6").Value = 289
If Target.Address = Range("C310").Address Then _
Range("J6").Value = 290
If Target.Address = Range("C311").Address Then _
Range("J6").Value = 291
If Target.Address = Range("C312").Address Then _
Range("J6").Value = 292
If Target.Address = Range("C313").Address Then _
Range("J6").Value = 293
If Target.Address = Range("C314").Address Then _
Range("J6").Value = 294
If Target.Address = Range("C315").Address Then _
Range("J6").Value = 295
If Target.Address = Range("C316").Address Then _
Range("J6").Value = 296
If Target.Address = Range("C317").Address Then _
Range("J6").Value = 297
If Target.Address = Range("C318").Address Then _
Range("J6").Value = 298
If Target.Address = Range("C319").Address Then _
Range("J6").Value = 299
If Target.Address = Range("C320").Address Then _
Range("J6").Value = 300
If Target.Address = Range("C321").Address Then _
Range("J6").Value = 301
If Target.Address = Range("C322").Address Then _
Range("J6").Value = 302
If Target.Address = Range("C323").Address Then _
Range("J6").Value = 303
If Target.Address = Range("C324").Address Then _
Range("J6").Value = 304
If Target.Address = Range("C325").Address Then _
Range("J6").Value = 305
If Target.Address = Range("C326").Address Then _
Range("J6").Value = 306
If Target.Address = Range("C327").Address Then _
Range("J6").Value = 307
If Target.Address = Range("C328").Address Then _
Range("J6").Value = 308
If Target.Address = Range("C329").Address Then _
Range("J6").Value = 309
If Target.Address = Range("C330").Address Then _
Range("J6").Value = 310
If Target.Address = Range("C331").Address Then _
Range("J6").Value = 311
If Target.Address = Range("C332").Address Then _
Range("J6").Value = 312
If Target.Address = Range("C333").Address Then _
Range("J6").Value = 313
If Target.Address = Range("C334").Address Then _
Range("J6").Value = 314
If Target.Address = Range("C335").Address Then _
Range("J6").Value = 315
If Target.Address = Range("C336").Address Then _
Range("J6").Value = 316
If Target.Address = Range("C337").Address Then _
Range("J6").Value = 317
If Target.Address = Range("C338").Address Then _
Range("J6").Value = 318
If Target.Address = Range("C339").Address Then _
Range("J6").Value = 319
If Target.Address = Range("C340").Address Then _
Range("J6").Value = 320
If Target.Address = Range("C341").Address Then _
Range("J6").Value = 321
If Target.Address = Range("C342").Address Then _
Range("J6").Value = 322
If Target.Address = Range("C343").Address Then _
Range("J6").Value = 323
If Target.Address = Range("C344").Address Then _
Range("J6").Value = 324
If Target.Address = Range("C345").Address Then _
Range("J6").Value = 325
If Target.Address = Range("C346").Address Then _
Range("J6").Value = 326
If Target.Address = Range("C347").Address Then _
Range("J6").Value = 327
If Target.Address = Range("C348").Address Then _
Range("J6").Value = 328
If Target.Address = Range("C349").Address Then _
Range("J6").Value = 329
If Target.Address = Range("C350").Address Then _
Range("J6").Value = 330
If Target.Address = Range("C351").Address Then _
Range("J6").Value = 331
If Target.Address = Range("C352").Address Then _
Range("J6").Value = 332
If Target.Address = Range("C353").Address Then _
Range("J6").Value = 333
If Target.Address = Range("C354").Address Then _
Range("J6").Value = 334
If Target.Address = Range("C355").Address Then _
Range("J6").Value = 335
If Target.Address = Range("C356").Address Then _
Range("J6").Value = 336
If Target.Address = Range("C357").Address Then _
Range("J6").Value = 337
If Target.Address = Range("C358").Address Then _
Range("J6").Value = 338
If Target.Address = Range("C359").Address Then _
Range("J6").Value = 339
If Target.Address = Range("C360").Address Then _
Range("J6").Value = 340
If Target.Address = Range("C361").Address Then _
Range("J6").Value = 341
If Target.Address = Range("C362").Address Then _
Range("J6").Value = 342
If Target.Address = Range("C363").Address Then _
Range("J6").Value = 343
If Target.Address = Range("C364").Address Then _
Range("J6").Value = 344
If Target.Address = Range("C365").Address Then _
Range("J6").Value = 345
If Target.Address = Range("C366").Address Then _
Range("J6").Value = 346
If Target.Address = Range("C367").Address Then _
Range("J6").Value = 347
If Target.Address = Range("C368").Address Then _
Range("J6").Value = 348
If Target.Address = Range("C369").Address Then _
Range("J6").Value = 349
If Target.Address = Range("C370").Address Then _
Range("J6").Value = 350
If Target.Address = Range("C371").Address Then _
Range("J6").Value = 351
If Target.Address = Range("C372").Address Then _
Range("J6").Value = 352
If Target.Address = Range("C373").Address Then _
Range("J6").Value = 353
If Target.Address = Range("C374").Address Then _
Range("J6").Value = 354
If Target.Address = Range("C375").Address Then _
Range("J6").Value = 355
If Target.Address = Range("C376").Address Then _
Range("J6").Value = 356
If Target.Address = Range("C377").Address Then _
Range("J6").Value = 357
If Target.Address = Range("C378").Address Then _
Range("J6").Value = 358
If Target.Address = Range("C379").Address Then _
Range("J6").Value = 359
If Target.Address = Range("C380").Address Then _
Range("J6").Value = 360
If Target.Address = Range("C381").Address Then _
Range("J6").Value = 361
If Target.Address = Range("C382").Address Then _
Range("J6").Value = 362
If Target.Address = Range("C383").Address Then _
Range("J6").Value = 363
If Target.Address = Range("C384").Address Then _
Range("J6").Value = 364
If Target.Address = Range("C385").Address Then _
Range("J6").Value = 366
If Target.Address = Range("C386").Address Then _
Range("J6").Value = 367
If Target.Address = Range("C387").Address Then _
Range("J6").Value = 368
If Target.Address = Range("C388").Address Then _
Range("J6").Value = 369
If Target.Address = Range("C389").Address Then _
Range("J6").Value = 370
If Target.Address = Range("C390").Address Then _
Range("J6").Value = 371
If Target.Address = Range("C391").Address Then _
Range("J6").Value = 372
If Target.Address = Range("C392").Address Then _
Range("J6").Value = 373
If Target.Address = Range("C393").Address Then _
Range("J6").Value = 374
If Target.Address = Range("C394").Address Then _
Range("J6").Value = 375
If Target.Address = Range("C395").Address Then _
Range("J6").Value = 376
If Target.Address = Range("C396").Address Then _
Range("J6").Value = 377
If Target.Address = Range("C397").Address Then _
Range("J6").Value = 378
If Target.Address = Range("C398").Address Then _
Range("J6").Value = 379
If Target.Address = Range("C399").Address Then _
Range("J6").Value = 380
If Target.Address = Range("C400").Address Then _
Range("J6").Value = 381
If Target.Address = Range("C401").Address Then _
Range("J6").Value = 382
If Target.Address = Range("C402").Address Then _
Range("J6").Value = 383
If Target.Address = Range("C403").Address Then _
Range("J6").Value = 384
If Target.Address = Range("C404").Address Then _
Range("J6").Value = 385
If Target.Address = Range("C405").Address Then _
Range("J6").Value = 386
If Target.Address = Range("C406").Address Then _
Range("J6").Value = 387
If Target.Address = Range("C407").Address Then _
Range("J6").Value = 388
If Target.Address = Range("C408").Address Then _
Range("J6").Value = 389
If Target.Address = Range("C409").Address Then _
Range("J6").Value = 390
If Target.Address = Range("C410").Address Then _
Range("J6").Value = 391
If Target.Address = Range("C411").Address Then _
Range("J6").Value = 392
If Target.Address = Range("C412").Address Then _
Range("J6").Value = 393
If Target.Address = Range("C413").Address Then _
Range("J6").Value = 394
If Target.Address = Range("C414").Address Then _
Range("J6").Value = 395
If Target.Address = Range("C415").Address Then _
Range("J6").Value = 396
If Target.Address = Range("C416").Address Then _
Range("J6").Value = 397
If Target.Address = Range("C417").Address Then _
Range("J6").Value = 398
If Target.Address = Range("C418").Address Then _
Range("J6").Value = 399
If Target.Address = Range("C419").Address Then _
Range("J6").Value = 400
If Target.Address = Range("C420").Address Then _
Range("J6").Value = 401
If Target.Address = Range("C421").Address Then _
Range("J6").Value = 402
If Target.Address = Range("C422").Address Then _
Range("J6").Value = 403
If Target.Address = Range("C423").Address Then _
Range("J6").Value = 404
If Target.Address = Range("C424").Address Then _
Range("J6").Value = 405
If Target.Address = Range("C425").Address Then _
Range("J6").Value = 406
If Target.Address = Range("C426").Address Then _
Range("J6").Value = 407
If Target.Address = Range("C427").Address Then _
Range("J6").Value = 408
If Target.Address = Range("C428").Address Then _
Range("J6").Value = 409
If Target.Address = Range("C429").Address Then _
Range("J6").Value = 410
If Target.Address = Range("C430").Address Then _
Range("J6").Value = 411
If Target.Address = Range("C431").Address Then _
Range("J6").Value = 412
If Target.Address = Range("C432").Address Then _
Range("J6").Value = 413
If Target.Address = Range("C433").Address Then _
Range("J6").Value = 414
If Target.Address = Range("C434").Address Then _
Range("J6").Value = 415
If Target.Address = Range("C435").Address Then _
Range("J6").Value = 416
If Target.Address = Range("C436").Address Then _
Range("J6").Value = 417
If Target.Address = Range("C437").Address Then _
Range("J6").Value = 418
If Target.Address = Range("C438").Address Then _
Range("J6").Value = 419
If Target.Address = Range("C439").Address Then _
Range("J6").Value = 420
If Target.Address = Range("C440").Address Then _
Range("J6").Value = 421
If Target.Address = Range("C441").Address Then _
Range("J6").Value = 422
If Target.Address = Range("C442").Address Then _
Range("J6").Value = 423
If Target.Address = Range("C443").Address Then _
Range("J6").Value = 424
If Target.Address = Range("C444").Address Then _
Range("J6").Value = 425
If Target.Address = Range("C445").Address Then _
Range("J6").Value = 426
If Target.Address = Range("C446").Address Then _
Range("J6").Value = 427
If Target.Address = Range("C447").Address Then _
Range("J6").Value = 428
If Target.Address = Range("C448").Address Then _
Range("J6").Value = 429
If Target.Address = Range("C449").Address Then _
Range("J6").Value = 430
If Target.Address = Range("C450").Address Then _
Range("J6").Value = 431
If Target.Address = Range("C451").Address Then _
Range("J6").Value = 432
If Target.Address = Range("C452").Address Then _
Range("J6").Value = 433
If Target.Address = Range("C453").Address Then _
Range("J6").Value = 434
If Target.Address = Range("C454").Address Then _
Range("J6").Value = 435
If Target.Address = Range("C455").Address Then _
Range("J6").Value = 436
If Target.Address = Range("C456").Address Then _
Range("J6").Value = 437
If Target.Address = Range("C457").Address Then _
Range("J6").Value = 438
If Target.Address = Range("C458").Address Then _
Range("J6").Value = 439
If Target.Address = Range("C459").Address Then _
Range("J6").Value = 440
If Target.Address = Range("C460").Address Then _
Range("J6").Value = 441
If Target.Address = Range("C461").Address Then _
Range("J6").Value = 442
If Target.Address = Range("C462").Address Then _
Range("J6").Value = 443
If Target.Address = Range("C463").Address Then _
Range("J6").Value = 444
If Target.Address = Range("C464").Address Then _
Range("J6").Value = 445
If Target.Address = Range("C465").Address Then _
Range("J6").Value = 446
If Target.Address = Range("C466").Address Then _
Range("J6").Value = 447
If Target.Address = Range("C467").Address Then _
Range("J6").Value = 448
If Target.Address = Range("C468").Address Then _
Range("J6").Value = 449
If Target.Address = Range("C469").Address Then _
Range("J6").Value = 450
If Target.Address = Range("C470").Address Then _
Range("J6").Value = 451
If Target.Address = Range("C471").Address Then _
Range("J6").Value = 452
If Target.Address = Range("C472").Address Then _
Range("J6").Value = 453
If Target.Address = Range("C473").Address Then _
Range("J6").Value = 454
If Target.Address = Range("C474").Address Then _
Range("J6").Value = 455
If Target.Address = Range("C475").Address Then _
Range("J6").Value = 456
If Target.Address = Range("C476").Address Then _
Range("J6").Value = 457
If Target.Address = Range("C477").Address Then _
Range("J6").Value = 458
If Target.Address = Range("C478").Address Then _
Range("J6").Value = 459
If Target.Address = Range("C479").Address Then _
Range("J6").Value = 460
If Target.Address = Range("C480").Address Then _
Range("J6").Value = 461
If Target.Address = Range("C481").Address Then _
Range("J6").Value = 462
If Target.Address = Range("C482").Address Then _
Range("J6").Value = 463
If Target.Address = Range("C483").Address Then _
Range("J6").Value = 464
If Target.Address = Range("C484").Address Then _
Range("J6").Value = 465
If Target.Address = Range("C485").Address Then _
Range("J6").Value = 466
If Target.Address = Range("C486").Address Then _
Range("J6").Value = 467
If Target.Address = Range("C487").Address Then _
Range("J6").Value = 468
If Target.Address = Range("C488").Address Then _
Range("J6").Value = 469
If Target.Address = Range("C489").Address Then _
Range("J6").Value = 470
If Target.Address = Range("C490").Address Then _
Range("J6").Value = 471
If Target.Address = Range("C491").Address Then _
Range("J6").Value = 472
If Target.Address = Range("C492").Address Then _
Range("J6").Value = 473
If Target.Address = Range("C493").Address Then _
Range("J6").Value = 474
If Target.Address = Range("C494").Address Then _
Range("J6").Value = 475
If Target.Address = Range("C495").Address Then _
Range("J6").Value = 476
If Target.Address = Range("C496").Address Then _
Range("J6").Value = 477
If Target.Address = Range("C497").Address Then _
Range("J6").Value = 478
If Target.Address = Range("C498").Address Then _
Range("J6").Value = 479
If Target.Address = Range("C499").Address Then _
Range("J6").Value = 480
If Target.Address = Range("C500").Address Then _
Range("J6").Value = 481
If Target.Address = Range("C501").Address Then _
Range("J6").Value = 482
If Target.Address = Range("C502").Address Then _
Range("J6").Value = 483
If Target.Address = Range("C503").Address Then _
Range("J6").Value = 484
If Target.Address = Range("C504").Address Then _
Range("J6").Value = 485
If Target.Address = Range("C505").Address Then _
Range("J6").Value = 486
If Target.Address = Range("C506").Address Then _
Range("J6").Value = 487
If Target.Address = Range("C507").Address Then _
Range("J6").Value = 488
If Target.Address = Range("C508").Address Then _
Range("J6").Value = 489
If Target.Address = Range("C509").Address Then _
Range("J6").Value = 490
If Target.Address = Range("C510").Address Then _
Range("J6").Value = 491
If Target.Address = Range("C511").Address Then _
Range("J6").Value = 492
If Target.Address = Range("C512").Address Then _
Range("J6").Value = 493
If Target.Address = Range("C513").Address Then _
Range("J6").Value = 494
If Target.Address = Range("C514").Address Then _
Range("J6").Value = 495
If Target.Address = Range("C515").Address Then _
Range("J6").Value = 496
If Target.Address = Range("C516").Address Then _
Range("J6").Value = 497
If Target.Address = Range("C517").Address Then _
Range("J6").Value = 498
If Target.Address = Range("C518").Address Then _
Range("J6").Value = 499
If Target.Address = Range("C519").Address Then _
Range("J6").Value = 500
If Target.Address = Range("C520").Address Then _
Range("J6").Value = 501
If Target.Address = Range("C521").Address Then _
Range("J6").Value = 502
If Target.Address = Range("C522").Address Then _
Range("J6").Value = 503
If Target.Address = Range("C523").Address Then _
Range("J6").Value = 504
If Target.Address = Range("C524").Address Then _
Range("J6").Value = 505
If Target.Address = Range("C525").Address Then _
Range("J6").Value = 506
If Target.Address = Range("C526").Address Then _
Range("J6").Value = 507
If Target.Address = Range("C527").Address Then _
Range("J6").Value = 508
If Target.Address = Range("C528").Address Then _
Range("J6").Value = 509
If Target.Address = Range("C529").Address Then _
Range("J6").Value = 510
If Target.Address = Range("C530").Address Then _
Range("J6").Value = 511
If Target.Address = Range("C531").Address Then _
Range("J6").Value = 512
If Target.Address = Range("C532").Address Then _
Range("J6").Value = 513
If Target.Address = Range("C533").Address Then _
Range("J6").Value = 514
If Target.Address = Range("C534").Address Then _
Range("J6").Value = 515
If Target.Address = Range("C535").Address Then _
Range("J6").Value = 516
If Target.Address = Range("C536").Address Then _
Range("J6").Value = 517
If Target.Address = Range("C537").Address Then _
Range("J6").Value = 518
If Target.Address = Range("C538").Address Then _
Range("J6").Value = 519
If Target.Address = Range("C539").Address Then _
Range("J6").Value = 520
If Target.Address = Range("C540").Address Then _
Range("J6").Value = 521
If Target.Address = Range("C541").Address Then _
Range("J6").Value = 522
If Target.Address = Range("C542").Address Then _
Range("J6").Value = 523
If Target.Address = Range("C543").Address Then _
Range("J6").Value = 524
If Target.Address = Range("C544").Address Then _
Range("J6").Value = 525
If Target.Address = Range("C545").Address Then _
Range("J6").Value = 526
If Target.Address = Range("C546").Address Then _
Range("J6").Value = 527
If Target.Address = Range("C547").Address Then _
Range("J6").Value = 528
If Target.Address = Range("C548").Address Then _
Range("J6").Value = 529
If Target.Address = Range("C549").Address Then _
Range("J6").Value = 530
If Target.Address = Range("C550").Address Then _
Range("J6").Value = 531
If Target.Address = Range("C551").Address Then _
Range("J6").Value = 532
If Target.Address = Range("C552").Address Then _
Range("J6").Value = 533
If Target.Address = Range("C553").Address Then _
Range("J6").Value = 534
If Target.Address = Range("C554").Address Then _
Range("J6").Value = 535
If Target.Address = Range("C555").Address Then _
Range("J6").Value = 536
If Target.Address = Range("C556").Address Then _
Range("J6").Value = 537
If Target.Address = Range("C557").Address Then _
Range("J6").Value = 538
If Target.Address = Range("C558").Address Then _
Range("J6").Value = 539
If Target.Address = Range("C559").Address Then _
Range("J6").Value = 540
If Target.Address = Range("C560").Address Then _
Range("J6").Value = 541
If Target.Address = Range("C561").Address Then _
Range("J6").Value = 542
If Target.Address = Range("C562").Address Then _
Range("J6").Value = 543
If Target.Address = Range("C563").Address Then _
Range("J6").Value = 544
If Target.Address = Range("C564").Address Then _
Range("J6").Value = 545
If Target.Address = Range("C565").Address Then _
Range("J6").Value = 546
If Target.Address = Range("C566").Address Then _
Range("J6").Value = 547
If Target.Address = Range("C567").Address Then _
Range("J6").Value = 548
If Target.Address = Range("C568").Address Then _
Range("J6").Value = 549
If Target.Address = Range("C569").Address Then _
Range("J6").Value = 550
If Target.Address = Range("C570").Address Then _
Range("J6").Value = 551
If Target.Address = Range("C571").Address Then _
Range("J6").Value = 552
If Target.Address = Range("C572").Address Then _
Range("J6").Value = 553
If Target.Address = Range("C573").Address Then _
Range("J6").Value = 554
If Target.Address = Range("C574").Address Then _
Range("J6").Value = 555
If Target.Address = Range("C575").Address Then _
Range("J6").Value = 556
If Target.Address = Range("C576").Address Then _
Range("J6").Value = 557
If Target.Address = Range("C577").Address Then _
Range("J6").Value = 558
If Target.Address = Range("C578").Address Then _
Range("J6").Value = 559
If Target.Address = Range("C579").Address Then _
Range("J6").Value = 560
If Target.Address = Range("C580").Address Then _
Range("J6").Value = 561
If Target.Address = Range("C581").Address Then _
Range("J6").Value = 562
If Target.Address = Range("C582").Address Then _
Range("J6").Value = 563
If Target.Address = Range("C583").Address Then _
Range("J6").Value = 564
If Target.Address = Range("C584").Address Then _
Range("J6").Value = 565
If Target.Address = Range("C585").Address Then _
Range("J6").Value = 566
If Target.Address = Range("C586").Address Then _
Range("J6").Value = 567
If Target.Address = Range("C587").Address Then _
Range("J6").Value = 568
If Target.Address = Range("C588").Address Then _
Range("J6").Value = 569
If Target.Address = Range("C589").Address Then _
Range("J6").Value = 570
If Target.Address = Range("C590").Address Then _
Range("J6").Value = 571
If Target.Address = Range("C591").Address Then _
Range("J6").Value = 572
If Target.Address = Range("C592").Address Then _
Range("J6").Value = 573
If Target.Address = Range("C593").Address Then _
Range("J6").Value = 574
If Target.Address = Range("C594").Address Then _
Range("J6").Value = 575
If Target.Address = Range("C595").Address Then _
Range("J6").Value = 576
If Target.Address = Range("C596").Address Then _
Range("J6").Value = 577
If Target.Address = Range("C597").Address Then _
Range("J6").Value = 578
If Target.Address = Range("C598").Address Then _
Range("J6").Value = 579
If Target.Address = Range("C599").Address Then _
Range("J6").Value = 580
If Target.Address = Range("C600").Address Then _
Range("J6").Value = 581
If Target.Address = Range("C601").Address Then _
Range("J6").Value = 582
If Target.Address = Range("C602").Address Then _
Range("J6").Value = 583
If Target.Address = Range("C603").Address Then _
Range("J6").Value = 584
If Target.Address = Range("C604").Address Then _
Range("J6").Value = 585
If Target.Address = Range("C605").Address Then _
Range("J6").Value = 586
If Target.Address = Range("C606").Address Then _
Range("J6").Value = 587
If Target.Address = Range("C607").Address Then _
Range("J6").Value = 588
If Target.Address = Range("C608").Address Then _
Range("J6").Value = 589
If Target.Address = Range("C609").Address Then _
Range("J6").Value = 590
If Target.Address = Range("C610").Address Then _
Range("J6").Value = 591
If Target.Address = Range("C611").Address Then _
Range("J6").Value = 592
If Target.Address = Range("C612").Address Then _
Range("J6").Value = 593
If Target.Address = Range("C613").Address Then _
Range("J6").Value = 594
If Target.Address = Range("C614").Address Then _
Range("J6").Value = 595
If Target.Address = Range("C615").Address Then _
Range("J6").Value = 596
If Target.Address = Range("C616").Address Then _
Range("J6").Value = 597
If Target.Address = Range("C617").Address Then _
Range("J6").Value = 598
If Target.Address = Range("C618").Address Then _
Range("J6").Value = 599
If Target.Address = Range("C619").Address Then _
Range("J6").Value = 600
If Target.Address = Range("C620").Address Then _
Range("J6").Value = 601
If Target.Address = Range("C621").Address Then _
Range("J6").Value = 602
If Target.Address = Range("C622").Address Then _
Range("J6").Value = 603
If Target.Address = Range("C623").Address Then _
Range("J6").Value = 604
If Target.Address = Range("C624").Address Then _
Range("J6").Value = 605
If Target.Address = Range("C625").Address Then _
Range("J6").Value = 606
If Target.Address = Range("C626").Address Then _
Range("J6").Value = 607
If Target.Address = Range("C627").Address Then _
Range("J6").Value = 608
If Target.Address = Range("C628").Address Then _
Range("J6").Value = 609
If Target.Address = Range("C629").Address Then _
Range("J6").Value = 610
If Target.Address = Range("C630").Address Then _
Range("J6").Value = 611
If Target.Address = Range("C631").Address Then _
Range("J6").Value = 612
If Target.Address = Range("C632").Address Then _
Range("J6").Value = 613
If Target.Address = Range("C633").Address Then _
Range("J6").Value = 614
If Target.Address = Range("C634").Address Then _
Range("J6").Value = 615
If Target.Address = Range("C635").Address Then _
Range("J6").Value = 616
If Target.Address = Range("C636").Address Then _
Range("J6").Value = 617
If Target.Address = Range("C637").Address Then _
Range("J6").Value = 618
If Target.Address = Range("C638").Address Then _
Range("J6").Value = 619
If Target.Address = Range("C639").Address Then _
Range("J6").Value = 620
If Target.Address = Range("C640").Address Then _
Range("J6").Value = 621
If Target.Address = Range("C641").Address Then _
Range("J6").Value = 622
If Target.Address = Range("C642").Address Then _
Range("J6").Value = 623
If Target.Address = Range("C643").Address Then _
Range("J6").Value = 624
If Target.Address = Range("C644").Address Then _
Range("J6").Value = 625
If Target.Address = Range("C645").Address Then _
Range("J6").Value = 626
If Target.Address = Range("C646").Address Then _
Range("J6").Value = 627
If Target.Address = Range("C647").Address Then _
Range("J6").Value = 628
If Target.Address = Range("C648").Address Then _
Range("J6").Value = 629
If Target.Address = Range("C649").Address Then _
Range("J6").Value = 630
If Target.Address = Range("C650").Address Then _
Range("J6").Value = 631
If Target.Address = Range("C651").Address Then _
Range("J6").Value = 632
If Target.Address = Range("C652").Address Then _
Range("J6").Value = 633
If Target.Address = Range("C653").Address Then _
Range("J6").Value = 634
If Target.Address = Range("C654").Address Then _
Range("J6").Value = 635
If Target.Address = Range("C655").Address Then _
Range("J6").Value = 636
If Target.Address = Range("C656").Address Then _
Range("J6").Value = 637
If Target.Address = Range("C657").Address Then _
Range("J6").Value = 638
If Target.Address = Range("C658").Address Then _
Range("J6").Value = 639
If Target.Address = Range("C659").Address Then _
Range("J6").Value = 640
If Target.Address = Range("C660").Address Then _
Range("J6").Value = 641
If Target.Address = Range("C661").Address Then _
Range("J6").Value = 642
If Target.Address = Range("C662").Address Then _
Range("J6").Value = 643
If Target.Address = Range("C663").Address Then _
Range("J6").Value = 644
If Target.Address = Range("C664").Address Then _
Range("J6").Value = 645
If Target.Address = Range("C665").Address Then _
Range("J6").Value = 646
If Target.Address = Range("C666").Address Then _
Range("J6").Value = 647
If Target.Address = Range("C667").Address Then _
Range("J6").Value = 648
If Target.Address = Range("C668").Address Then _
Range("J6").Value = 649
If Target.Address = Range("C669").Address Then _
Range("J6").Value = 650
If Target.Address = Range("C670").Address Then _
Range("J6").Value = 651
If Target.Address = Range("C673").Address Then _
Range("J6").Value = 654
If Target.Address = Range("C674").Address Then _
Range("J6").Value = 655
If Target.Address = Range("C675").Address Then _
Range("J6").Value = 656
If Target.Address = Range("C676").Address Then _
Range("J6").Value = 657
If Target.Address = Range("C677").Address Then _
Range("J6").Value = 658
If Target.Address = Range("C678").Address Then _
Range("J6").Value = 659
If Target.Address = Range("C679").Address Then _
Range("J6").Value = 660
If Target.Address = Range("C680").Address Then _
Range("J6").Value = 661
If Target.Address = Range("C681").Address Then _
Range("J6").Value = 662
If Target.Address = Range("C682").Address Then _
Range("J6").Value = 663
If Target.Address = Range("C683").Address Then _
Range("J6").Value = 664
If Target.Address = Range("C684").Address Then _
Range("J6").Value = 665
If Target.Address = Range("C685").Address Then _
Range("J6").Value = 666
If Target.Address = Range("C686").Address Then _
Range("J6").Value = 667
If Target.Address = Range("C687").Address Then _
Range("J6").Value = 668
If Target.Address = Range("C688").Address Then _
Range("J6").Value = 669
If Target.Address = Range("C689").Address Then _
Range("J6").Value = 670
If Target.Address = Range("C690").Address Then _
Range("J6").Value = 671
If Target.Address = Range("C691").Address Then _
Range("J6").Value = 672
If Target.Address = Range("C692").Address Then _
Range("J6").Value = 673
If Target.Address = Range("C693").Address Then _
Range("J6").Value = 674
If Target.Address = Range("C694").Address Then _
Range("J6").Value = 675
If Target.Address = Range("C695").Address Then _
Range("J6").Value = 676
If Target.Address = Range("C696").Address Then _
Range("J6").Value = 677
If Target.Address = Range("C697").Address Then _
Range("J6").Value = 678
If Target.Address = Range("C698").Address Then _
Range("J6").Value = 679
If Target.Address = Range("C699").Address Then _
Range("J6").Value = 680
If Target.Address = Range("C700").Address Then _
Range("J6").Value = 681
If Target.Address = Range("C701").Address Then _
Range("J6").Value = 682
If Target.Address = Range("C702").Address Then _
Range("J6").Value = 683
If Target.Address = Range("C703").Address Then _
Range("J6").Value = 684
If Target.Address = Range("C704").Address Then _
Range("J6").Value = 685
If Target.Address = Range("C705").Address Then _
Range("J6").Value = 686
If Target.Address = Range("C706").Address Then _
Range("J6").Value = 687
If Target.Address = Range("C707").Address Then _
Range("J6").Value = 688
If Target.Address = Range("C708").Address Then _
Range("J6").Value = 689
If Target.Address = Range("C709").Address Then _
Range("J6").Value = 690
If Target.Address = Range("C710").Address Then _
Range("J6").Value = 691
If Target.Address = Range("C711").Address Then _
Range("J6").Value = 692
If Target.Address = Range("C712").Address Then _
Range("J6").Value = 693
If Target.Address = Range("C713").Address Then _
Range("J6").Value = 694
If Target.Address = Range("C714").Address Then _
Range("J6").Value = 695
If Target.Address = Range("C715").Address Then _
Range("J6").Value = 696
If Target.Address = Range("C716").Address Then _
Range("J6").Value = 697
If Target.Address = Range("C717").Address Then _
Range("J6").Value = 698
If Target.Address = Range("C718").Address Then _
Range("J6").Value = 699
If Target.Address = Range("C719").Address Then _
Range("J6").Value = 700
If Target.Address = Range("C720").Address Then _
Range("J6").Value = 701
If Target.Address = Range("C721").Address Then _
Range("J6").Value = 702
If Target.Address = Range("C722").Address Then _
Range("J6").Value = 703
If Target.Address = Range("C723").Address Then _
Range("J6").Value = 704
If Target.Address = Range("C724").Address Then _
Range("J6").Value = 705
If Target.Address = Range("C725").Address Then _
Range("J6").Value = 706
If Target.Address = Range("C726").Address Then _
Range("J6").Value = 707
If Target.Address = Range("C727").Address Then _
Range("J6").Value = 708
If Target.Address = Range("C728").Address Then _
Range("J6").Value = 709
If Target.Address = Range("C729").Address Then _
Range("J6").Value = 710
If Target.Address = Range("C730").Address Then _
Range("J6").Value = 711
If Target.Address = Range("C731").Address Then _
Range("J6").Value = 712
If Target.Address = Range("C732").Address Then _
Range("J6").Value = 713
If Target.Address = Range("C733").Address Then _
Range("J6").Value = 714
If Target.Address = Range("C734").Address Then _
Range("J6").Value = 715
If Target.Address = Range("C735").Address Then _
Range("J6").Value = 716
If Target.Address = Range("C736").Address Then _
Range("J6").Value = 717
If Target.Address = Range("C737").Address Then _
Range("J6").Value = 718
If Target.Address = Range("C738").Address Then _
Range("J6").Value = 719
If Target.Address = Range("C739").Address Then _
Range("J6").Value = 720
If Target.Address = Range("C740").Address Then _
Range("J6").Value = 721
If Target.Address = Range("C741").Address Then _
Range("J6").Value = 722
If Target.Address = Range("C742").Address Then _
Range("J6").Value = 723
If Target.Address = Range("C743").Address Then _
Range("J6").Value = 724
If Target.Address = Range("C744").Address Then _
Range("J6").Value = 725
If Target.Address = Range("C745").Address Then _
Range("J6").Value = 726
If Target.Address = Range("C746").Address Then _
Range("J6").Value = 727
If Target.Address = Range("C747").Address Then _
Range("J6").Value = 728
If Target.Address = Range("C748").Address Then _
Range("J6").Value = 729
If Target.Address = Range("C749").Address Then _
Range("J6").Value = 730
If Target.Address = Range("C750").Address Then _
Range("J6").Value = 731
If Target.Address = Range("C751").Address Then _
Range("J6").Value = 732
If Target.Address = Range("C752").Address Then _
Range("J6").Value = 733
If Target.Address = Range("C753").Address Then _
Range("J6").Value = 734
If Target.Address = Range("C754").Address Then _
Range("J6").Value = 735
If Target.Address = Range("C755").Address Then _
Range("J6").Value = 736
If Target.Address = Range("C756").Address Then _
Range("J6").Value = 737
If Target.Address = Range("C757").Address Then _
Range("J6").Value = 738
If Target.Address = Range("C758").Address Then _
Range("J6").Value = 739
If Target.Address = Range("C759").Address Then _
Range("J6").Value = 740
If Target.Address = Range("C760").Address Then _
Range("J6").Value = 741
If Target.Address = Range("C761").Address Then _
Range("J6").Value = 742
If Target.Address = Range("C762").Address Then _
Range("J6").Value = 743
If Target.Address = Range("C763").Address Then _
Range("J6").Value = 744
If Target.Address = Range("C764").Address Then _
Range("J6").Value = 745
If Target.Address = Range("C765").Address Then _
Range("J6").Value = 746
If Target.Address = Range("C766").Address Then _
Range("J6").Value = 747
If Target.Address = Range("C767").Address Then _
Range("J6").Value = 748
If Target.Address = Range("C768").Address Then _
Range("J6").Value = 749
If Target.Address = Range("C769").Address Then _
Range("J6").Value = 750
If Target.Address = Range("C770").Address Then _
Range("J6").Value = 751
If Target.Address = Range("C771").Address Then _
Range("J6").Value = 752
If Target.Address = Range("C772").Address Then _
Range("J6").Value = 753
If Target.Address = Range("C773").Address Then _
Range("J6").Value = 754
If Target.Address = Range("C774").Address Then _
Range("J6").Value = 755
If Target.Address = Range("C775").Address Then _
Range("J6").Value = 756
If Target.Address = Range("C776").Address Then _
Range("J6").Value = 757
If Target.Address = Range("C777").Address Then _
Range("J6").Value = 758
If Target.Address = Range("C778").Address Then _
Range("J6").Value = 759
If Target.Address = Range("C779").Address Then _
Range("J6").Value = 760
If Target.Address = Range("C780").Address Then _
Range("J6").Value = 761
If Target.Address = Range("C781").Address Then _
Range("J6").Value = 762
If Target.Address = Range("C782").Address Then _
Range("J6").Value = 763
If Target.Address = Range("C783").Address Then _
Range("J6").Value = 764
If Target.Address = Range("C784").Address Then _
Range("J6").Value = 765
If Target.Address = Range("C785").Address Then _
Range("J6").Value = 766
If Target.Address = Range("C786").Address Then _
Range("J6").Value = 767
If Target.Address = Range("C787").Address Then _
Range("J6").Value = 768
If Target.Address = Range("C788").Address Then _
Range("J6").Value = 769
If Target.Address = Range("C789").Address Then _
Range("J6").Value = 770
If Target.Address = Range("C790").Address Then _
Range("J6").Value = 771
If Target.Address = Range("C791").Address Then _
Range("J6").Value = 772
If Target.Address = Range("C792").Address Then _
Range("J6").Value = 773
If Target.Address = Range("C793").Address Then _
Range("J6").Value = 774
If Target.Address = Range("C794").Address Then _
Range("J6").Value = 775
If Target.Address = Range("C795").Address Then _
Range("J6").Value = 776
If Target.Address = Range("C796").Address Then _
Range("J6").Value = 777
If Target.Address = Range("C921").Address Then _
Range("J6").Value = 923
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("C26").Address Then _
Range("J6").Value = 1
If Target.Address = Range("C27").Address Then _
Range("J6").Value = 2
If Target.Address = Range("C28").Address Then _
Range("J6").Value = 3
If Target.Address = Range("C29").Address Then _
Range("J6").Value = 4
If Target.Address = Range("C30").Address Then _
Range("J6").Value = 5
If Target.Address = Range("C31").Address Then _
Range("J6").Value = 6
If Target.Address = Range("C32").Address Then _
Range("J6").Value = 7
If Target.Address = Range("C33").Address Then _
Range("J6").Value = 8
If Target.Address = Range("C34").Address Then _
Range("J6").Value = 9
If Target.Address = Range("C35").Address Then _
Range("J6").Value = 10
If Target.Address = Range("C36").Address Then _
Range("J6").Value = 11
If Target.Address = Range("C37").Address Then _
Range("J6").Value = 12
If Target.Address = Range("C38").Address Then _
Range("J6").Value = 13
If Target.Address = Range("C39").Address Then _
Range("J6").Value = 14
If Target.Address = Range("C40").Address Then _
Range("J6").Value = 15
If Target.Address = Range("C41").Address Then _
Range("J6").Value = 16
If Target.Address = Range("C42").Address Then _
Range("J6").Value = 17
If Target.Address = Range("C43").Address Then _
Range("J6").Value = 18
If Target.Address = Range("C44").Address Then _
Range("J6").Value = 19
If Target.Address = Range("C45").Address Then _
Range("J6").Value = 20
If Target.Address = Range("C46").Address Then _
Range("J6").Value = 21
If Target.Address = Range("C47").Address Then _
Range("J6").Value = 22
If Target.Address = Range("C48").Address Then _
Range("J6").Value = 23
If Target.Address = Range("C49").Address Then _
Range("J6").Value = 24
If Target.Address = Range("C50").Address Then _
Range("J6").Value = 25
If Target.Address = Range("C51").Address Then _
Range("J6").Value = 26
If Target.Address = Range("C52").Address Then _
Range("J6").Value = 27
If Target.Address = Range("C53").Address Then _
Range("J6").Value = 28
If Target.Address = Range("C54").Address Then _
Range("J6").Value = 29
If Target.Address = Range("C55").Address Then _
Range("J6").Value = 30
If Target.Address = Range("C56").Address Then _
Range("J6").Value = 31
If Target.Address = Range("C57").Address Then _
Range("J6").Value = 32
If Target.Address = Range("C58").Address Then _
Range("J6").Value = 33
If Target.Address = Range("C59").Address Then _
Range("J6").Value = 34
If Target.Address = Range("C60").Address Then _
Range("J6").Value = 35
If Target.Address = Range("C61").Address Then _
Range("J6").Value = 36
If Target.Address = Range("C62").Address Then _
Range("J6").Value = 37
If Target.Address = Range("C63").Address Then _
Range("J6").Value = 38
If Target.Address = Range("C64").Address Then _
Range("J6").Value = 39
If Target.Address = Range("C65").Address Then _
Range("J6").Value = 40
If Target.Address = Range("C66").Address Then _
Range("J6").Value = 41
If Target.Address = Range("C67").Address Then _
Range("J6").Value = 42
If Target.Address = Range("C68").Address Then _
Range("J6").Value = 43
If Target.Address = Range("C69").Address Then _
Range("J6").Value = 44
If Target.Address = Range("C70").Address Then _
Range("J6").Value = 45
If Target.Address = Range("C71").Address Then _
Range("J6").Value = 46
If Target.Address = Range("C72").Address Then _
Range("J6").Value = 47
If Target.Address = Range("C73").Address Then _
Range("J6").Value = 48
If Target.Address = Range("C74").Address Then _
Range("J6").Value = 49
If Target.Address = Range("C75").Address Then _
Range("J6").Value = 50
If Target.Address = Range("C76").Address Then _
Range("J6").Value = 51
If Target.Address = Range("C77").Address Then _
Range("J6").Value = 52
If Target.Address = Range("C78").Address Then _
Range("J6").Value = 53
If Target.Address = Range("C79").Address Then _
Range("J6").Value = 54
If Target.Address = Range("C80").Address Then _
Range("J6").Value = 55
If Target.Address = Range("C81").Address Then _
Range("J6").Value = 56
If Target.Address = Range("C82").Address Then _
Range("J6").Value = 57
If Target.Address = Range("C83").Address Then _
Range("J6").Value = 58
If Target.Address = Range("C84").Address Then _
Range("J6").Value = 59
If Target.Address = Range("C85").Address Then _
Range("J6").Value = 60
If Target.Address = Range("C86").Address Then _
Range("J6").Value = 61
If Target.Address = Range("C87").Address Then _
Range("J6").Value = 62
If Target.Address = Range("C88").Address Then _
Range("J6").Value = 63
If Target.Address = Range("C89").Address Then _
Range("J6").Value = 64
If Target.Address = Range("C90").Address Then _
Range("J6").Value = 65
If Target.Address = Range("C91").Address Then _
Range("J6").Value = 66
If Target.Address = Range("C92").Address Then _
Range("J6").Value = 67
If Target.Address = Range("C93").Address Then _
Range("J6").Value = 68
If Target.Address = Range("C94").Address Then _
Range("J6").Value = 69
If Target.Address = Range("C95").Address Then _
Range("J6").Value = 70
If Target.Address = Range("C96").Address Then _
Range("J6").Value = 71
If Target.Address = Range("C97").Address Then _
Range("J6").Value = 72
If Target.Address = Range("C98").Address Then _
Range("J6").Value = 73
If Target.Address = Range("C99").Address Then _
Range("J6").Value = 74
If Target.Address = Range("C100").Address Then _
Range("J6").Value = 75
If Target.Address = Range("C101").Address Then _
Range("J6").Value = 76
If Target.Address = Range("C102").Address Then _
Range("J6").Value = 77
If Target.Address = Range("C103").Address Then _
Range("J6").Value = 78
If Target.Address = Range("C104").Address Then _
Range("J6").Value = 79
If Target.Address = Range("C105").Address Then _
Range("J6").Value = 80
If Target.Address = Range("C106").Address Then _
Range("J6").Value = 81
If Target.Address = Range("C107").Address Then _
Range("J6").Value = 82
If Target.Address = Range("C108").Address Then _
Range("J6").Value = 83
If Target.Address = Range("C109").Address Then _
Range("J6").Value = 84
If Target.Address = Range("C110").Address Then _
Range("J6").Value = 85
If Target.Address = Range("C111").Address Then _
Range("J6").Value = 86
If Target.Address = Range("C112").Address Then _
Range("J6").Value = 87
If Target.Address = Range("C113").Address Then _
Range("J6").Value = 88
If Target.Address = Range("C114").Address Then _
Range("J6").Value = 89
If Target.Address = Range("C115").Address Then _
Range("J6").Value = 90
If Target.Address = Range("C116").Address Then _
Range("J6").Value = 91
If Target.Address = Range("C117").Address Then _
Range("J6").Value = 92
If Target.Address = Range("C118").Address Then _
Range("J6").Value = 93
If Target.Address = Range("C119").Address Then _
Range("J6").Value = 94
If Target.Address = Range("C120").Address Then _
Range("J6").Value = 95
If Target.Address = Range("C121").Address Then _
Range("J6").Value = 96
If Target.Address = Range("C122").Address Then _
Range("J6").Value = 97
If Target.Address = Range("C123").Address Then _
Range("J6").Value = 98
If Target.Address = Range("C124").Address Then _
Range("J6").Value = 99
If Target.Address = Range("C125").Address Then _
Range("J6").Value = 100
If Target.Address = Range("C126").Address Then _
Range("J6").Value = 101
If Target.Address = Range("C127").Address Then _
Range("J6").Value = 102
If Target.Address = Range("C128").Address Then _
Range("J6").Value = 103
If Target.Address = Range("C129").Address Then _
Range("J6").Value = 104
If Target.Address = Range("C130").Address Then _
Range("J6").Value = 105
If Target.Address = Range("C131").Address Then _
Range("J6").Value = 106
If Target.Address = Range("C132").Address Then _
Range("J6").Value = 107
If Target.Address = Range("C133").Address Then _
Range("J6").Value = 108
If Target.Address = Range("C134").Address Then _
Range("J6").Value = 109
If Target.Address = Range("C135").Address Then _
Range("J6").Value = 110
If Target.Address = Range("C136").Address Then _
Range("J6").Value = 111
If Target.Address = Range("C137").Address Then _
Range("J6").Value = 112
If Target.Address = Range("C138").Address Then _
Range("J6").Value = 113
If Target.Address = Range("C139").Address Then _
Range("J6").Value = 114
If Target.Address = Range("C140").Address Then _
Range("J6").Value = 115
If Target.Address = Range("C141").Address Then _
Range("J6").Value = 116
If Target.Address = Range("C142").Address Then _
Range("J6").Value = 117
If Target.Address = Range("C143").Address Then _
Range("J6").Value = 118
If Target.Address = Range("C144").Address Then _
Range("J6").Value = 119
If Target.Address = Range("C145").Address Then _
Range("J6").Value = 120
If Target.Address = Range("C146").Address Then _
Range("J6").Value = 121
If Target.Address = Range("C147").Address Then _
Range("J6").Value = 122
If Target.Address = Range("C148").Address Then _
Range("J6").Value = 123
If Target.Address = Range("C149").Address Then _
Range("J6").Value = 124
If Target.Address = Range("C150").Address Then _
Range("J6").Value = 125
If Target.Address = Range("C151").Address Then _
Range("J6").Value = 126
If Target.Address = Range("C152").Address Then _
Range("J6").Value = 127
If Target.Address = Range("C153").Address Then _
Range("J6").Value = 128
If Target.Address = Range("C154").Address Then _
Range("J6").Value = 129
If Target.Address = Range("C155").Address Then _
Range("J6").Value = 130
If Target.Address = Range("C156").Address Then _
Range("J6").Value = 131
If Target.Address = Range("C157").Address Then _
Range("J6").Value = 132
If Target.Address = Range("C158").Address Then _
Range("J6").Value = 133
If Target.Address = Range("C159").Address Then _
Range("J6").Value = 134
If Target.Address = Range("C160").Address Then _
Range("J6").Value = 135
If Target.Address = Range("C161").Address Then _
Range("J6").Value = 136
If Target.Address = Range("C162").Address Then _
Range("J6").Value = 137
If Target.Address = Range("C163").Address Then _
Range("J6").Value = 138
If Target.Address = Range("C164").Address Then _
Range("J6").Value = 139
If Target.Address = Range("C165").Address Then _
Range("J6").Value = 140
If Target.Address = Range("C166").Address Then _
Range("J6").Value = 141
If Target.Address = Range("C167").Address Then _
Range("J6").Value = 142
If Target.Address = Range("C168").Address Then _
Range("J6").Value = 143
If Target.Address = Range("C169").Address Then _
Range("J6").Value = 144
If Target.Address = Range("C170").Address Then _
Range("J6").Value = 145
If Target.Address = Range("C171").Address Then _
Range("J6").Value = 146
If Target.Address = Range("C172").Address Then _
Range("J6").Value = 147
If Target.Address = Range("C173").Address Then _
Range("J6").Value = 148
If Target.Address = Range("C174").Address Then _
Range("J6").Value = 149
If Target.Address = Range("C175").Address Then _
Range("J6").Value = 150
If Target.Address = Range("C176").Address Then _
Range("J6").Value = 151
If Target.Address = Range("C177").Address Then _
Range("J6").Value = 152
If Target.Address = Range("C178").Address Then _
Range("J6").Value = 153
If Target.Address = Range("C179").Address Then _
Range("J6").Value = 154
If Target.Address = Range("C180").Address Then _
Range("J6").Value = 155
If Target.Address = Range("C181").Address Then _
Range("J6").Value = 156
If Target.Address = Range("C182").Address Then _
Range("J6").Value = 157
If Target.Address = Range("C183").Address Then _
Range("J6").Value = 158
If Target.Address = Range("C184").Address Then _
Range("J6").Value = 159
If Target.Address = Range("C185").Address Then _
Range("J6").Value = 160
If Target.Address = Range("C186").Address Then _
Range("J6").Value = 161
If Target.Address = Range("C187").Address Then _
Range("J6").Value = 162
If Target.Address = Range("C188").Address Then _
Range("J6").Value = 163
If Target.Address = Range("C189").Address Then _
Range("J6").Value = 164
If Target.Address = Range("C190").Address Then _
Range("J6").Value = 165
If Target.Address = Range("C191").Address Then _
Range("J6").Value = 166
If Target.Address = Range("C192").Address Then _
Range("J6").Value = 167
If Target.Address = Range("C193").Address Then _
Range("J6").Value = 168
If Target.Address = Range("C194").Address Then _
Range("J6").Value = 169
If Target.Address = Range("C195").Address Then _
Range("J6").Value = 170
If Target.Address = Range("C196").Address Then _
Range("J6").Value = 171
If Target.Address = Range("C197").Address Then _
Range("J6").Value = 172
If Target.Address = Range("C198").Address Then _
Range("J6").Value = 173
If Target.Address = Range("C199").Address Then _
Range("J6").Value = 174
If Target.Address = Range("C200").Address Then _
Range("J6").Value = 175
If Target.Address = Range("C201").Address Then _
Range("J6").Value = 176
If Target.Address = Range("C202").Address Then _
Range("J6").Value = 177
If Target.Address = Range("C203").Address Then _
Range("J6").Value = 178
If Target.Address = Range("C204").Address Then _
Range("J6").Value = 179
If Target.Address = Range("C205").Address Then _
Range("J6").Value = 180
If Target.Address = Range("C206").Address Then _
Range("J6").Value = 181
If Target.Address = Range("C207").Address Then _
Range("J6").Value = 182
If Target.Address = Range("C208").Address Then _
Range("J6").Value = 183
If Target.Address = Range("C209").Address Then _
Range("J6").Value = 184
If Target.Address = Range("C210").Address Then _
Range("J6").Value = 185
If Target.Address = Range("C211").Address Then _
Range("J6").Value = 186
If Target.Address = Range("C212").Address Then _
Range("J6").Value = 187
If Target.Address = Range("C213").Address Then _
Range("J6").Value = 188
If Target.Address = Range("C214").Address Then _
Range("J6").Value = 189
If Target.Address = Range("C215").Address Then _
Range("J6").Value = 190
If Target.Address = Range("C216").Address Then _
Range("J6").Value = 191
If Target.Address = Range("C217").Address Then _
Range("J6").Value = 192
If Target.Address = Range("C218").Address Then _
Range("J6").Value = 193
If Target.Address = Range("C219").Address Then _
Range("J6").Value = 194
If Target.Address = Range("C220").Address Then _
Range("J6").Value = 195
If Target.Address = Range("C221").Address Then _
Range("J6").Value = 196
If Target.Address = Range("C222").Address Then _
Range("J6").Value = 197
If Target.Address = Range("C223").Address Then _
Range("J6").Value = 198
If Target.Address = Range("C224").Address Then _
Range("J6").Value = 199
If Target.Address = Range("C225").Address Then _
Range("J6").Value = 200
If Target.Address = Range("C226").Address Then _
Range("J6").Value = 201
If Target.Address = Range("C227").Address Then _
Range("J6").Value = 202
If Target.Address = Range("C228").Address Then _
Range("J6").Value = 203
If Target.Address = Range("C229").Address Then _
Range("J6").Value = 204
If Target.Address = Range("C230").Address Then _
Range("J6").Value = 205
If Target.Address = Range("C231").Address Then _
Range("J6").Value = 206
If Target.Address = Range("C232").Address Then _
Range("J6").Value = 207
If Target.Address = Range("C233").Address Then _
Range("J6").Value = 208
If Target.Address = Range("C234").Address Then _
Range("J6").Value = 209
If Target.Address = Range("C235").Address Then _
Range("J6").Value = 210
If Target.Address = Range("C236").Address Then _
Range("J6").Value = 211
If Target.Address = Range("C237").Address Then _
Range("J6").Value = 212
If Target.Address = Range("C238").Address Then _
Range("J6").Value = 213
If Target.Address = Range("C239").Address Then _
Range("J6").Value = 214
If Target.Address = Range("C240").Address Then _
Range("J6").Value = 215
If Target.Address = Range("C241").Address Then _
Range("J6").Value = 216
If Target.Address = Range("C242").Address Then _
Range("J6").Value = 217
If Target.Address = Range("C243").Address Then _
Range("J6").Value = 218
If Target.Address = Range("C244").Address Then _
Range("J6").Value = 219
If Target.Address = Range("C245").Address Then _
Range("J6").Value = 220
If Target.Address = Range("C246").Address Then _
Range("J6").Value = 221
If Target.Address = Range("C247").Address Then _
Range("J6").Value = 222
If Target.Address = Range("C248").Address Then _
Range("J6").Value = 223
If Target.Address = Range("C249").Address Then _
Range("J6").Value = 224
If Target.Address = Range("C250").Address Then _
Range("J6").Value = 225
If Target.Address = Range("C251").Address Then _
Range("J6").Value = 226
If Target.Address = Range("C252").Address Then _
Range("J6").Value = 227
If Target.Address = Range("C253").Address Then _
Range("J6").Value = 228
If Target.Address = Range("C254").Address Then _
Range("J6").Value = 229
If Target.Address = Range("C255").Address Then _
Range("J6").Value = 230
If Target.Address = Range("C256").Address Then _
Range("J6").Value = 231
If Target.Address = Range("C257").Address Then _
Range("J6").Value = 232
If Target.Address = Range("C258").Address Then _
Range("J6").Value = 233
If Target.Address = Range("C259").Address Then _
Range("J6").Value = 234
If Target.Address = Range("C260").Address Then _
Range("J6").Value = 235
If Target.Address = Range("C261").Address Then _
Range("J6").Value = 236
If Target.Address = Range("C262").Address Then _
Range("J6").Value = 237
If Target.Address = Range("C263").Address Then _
Range("J6").Value = 238
If Target.Address = Range("C264").Address Then _
Range("J6").Value = 239
If Target.Address = Range("C265").Address Then _
Range("J6").Value = 240
If Target.Address = Range("C266").Address Then _
Range("J6").Value = 241
If Target.Address = Range("C267").Address Then _
Range("J6").Value = 242
If Target.Address = Range("C268").Address Then _
Range("J6").Value = 243
If Target.Address = Range("C269").Address Then _
Range("J6").Value = 244
If Target.Address = Range("C270").Address Then _
Range("J6").Value = 245
If Target.Address = Range("C271").Address Then _
Range("J6").Value = 246
If Target.Address = Range("C272").Address Then _
Range("J6").Value = 247
If Target.Address = Range("C273").Address Then _
Range("J6").Value = 248
If Target.Address = Range("C274").Address Then _
Range("J6").Value = 249
If Target.Address = Range("C275").Address Then _
Range("J6").Value = 250
If Target.Address = Range("C276").Address Then _
Range("J6").Value = 251
If Target.Address = Range("C277").Address Then _
Range("J6").Value = 252
If Target.Address = Range("C278").Address Then _
Range("J6").Value = 253
If Target.Address = Range("C279").Address Then _
Range("J6").Value = 254
If Target.Address = Range("C280").Address Then _
Range("J6").Value = 255
If Target.Address = Range("C281").Address Then _
Range("J6").Value = 256
If Target.Address = Range("C282").Address Then _
Range("J6").Value = 257
If Target.Address = Range("C283").Address Then _
Range("J6").Value = 258
If Target.Address = Range("C284").Address Then _
Range("J6").Value = 259
If Target.Address = Range("C285").Address Then _
Range("J6").Value = 260
If Target.Address = Range("C286").Address Then _
Range("J6").Value = 261
If Target.Address = Range("C287").Address Then _
Range("J6").Value = 262
If Target.Address = Range("C288").Address Then _
Range("J6").Value = 263
If Target.Address = Range("C289").Address Then _
Range("J6").Value = 264
If Target.Address = Range("C290").Address Then _
Range("J6").Value = 265
If Target.Address = Range("C291").Address Then _
Range("J6").Value = 266
If Target.Address = Range("C292").Address Then _
Range("J6").Value = 267
If Target.Address = Range("C293").Address Then _
Range("J6").Value = 268
If Target.Address = Range("C294").Address Then _
Range("J6").Value = 270
If Target.Address = Range("C295").Address Then _
Range("J6").Value = 272
If Target.Address = Range("C296").Address Then _
Range("J6").Value = 273
If Target.Address = Range("C297").Address Then _
Range("J6").Value = 275
If Target.Address = Range("C298").Address Then _
Range("J6").Value = 277
If Target.Address = Range("C299").Address Then _
Range("J6").Value = 279
If Target.Address = Range("C300").Address Then _
Range("J6").Value = 280
If Target.Address = Range("C301").Address Then _
Range("J6").Value = 281
If Target.Address = Range("C302").Address Then _
Range("J6").Value = 282
If Target.Address = Range("C303").Address Then _
Range("J6").Value = 283
If Target.Address = Range("C304").Address Then _
Range("J6").Value = 284
If Target.Address = Range("C305").Address Then _
Range("J6").Value = 285
If Target.Address = Range("C306").Address Then _
Range("J6").Value = 286
If Target.Address = Range("C307").Address Then _
Range("J6").Value = 287
If Target.Address = Range("C308").Address Then _
Range("J6").Value = 288
If Target.Address = Range("C309").Address Then _
Range("J6").Value = 289
If Target.Address = Range("C310").Address Then _
Range("J6").Value = 290
If Target.Address = Range("C311").Address Then _
Range("J6").Value = 291
If Target.Address = Range("C312").Address Then _
Range("J6").Value = 292
If Target.Address = Range("C313").Address Then _
Range("J6").Value = 293
If Target.Address = Range("C314").Address Then _
Range("J6").Value = 294
If Target.Address = Range("C315").Address Then _
Range("J6").Value = 295
If Target.Address = Range("C316").Address Then _
Range("J6").Value = 296
If Target.Address = Range("C317").Address Then _
Range("J6").Value = 297
If Target.Address = Range("C318").Address Then _
Range("J6").Value = 298
If Target.Address = Range("C319").Address Then _
Range("J6").Value = 299
If Target.Address = Range("C320").Address Then _
Range("J6").Value = 300
If Target.Address = Range("C321").Address Then _
Range("J6").Value = 301
If Target.Address = Range("C322").Address Then _
Range("J6").Value = 302
If Target.Address = Range("C323").Address Then _
Range("J6").Value = 303
If Target.Address = Range("C324").Address Then _
Range("J6").Value = 304
If Target.Address = Range("C325").Address Then _
Range("J6").Value = 305
If Target.Address = Range("C326").Address Then _
Range("J6").Value = 306
If Target.Address = Range("C327").Address Then _
Range("J6").Value = 307
If Target.Address = Range("C328").Address Then _
Range("J6").Value = 308
If Target.Address = Range("C329").Address Then _
Range("J6").Value = 309
If Target.Address = Range("C330").Address Then _
Range("J6").Value = 310
If Target.Address = Range("C331").Address Then _
Range("J6").Value = 311
If Target.Address = Range("C332").Address Then _
Range("J6").Value = 312
If Target.Address = Range("C333").Address Then _
Range("J6").Value = 313
If Target.Address = Range("C334").Address Then _
Range("J6").Value = 314
If Target.Address = Range("C335").Address Then _
Range("J6").Value = 315
If Target.Address = Range("C336").Address Then _
Range("J6").Value = 316
If Target.Address = Range("C337").Address Then _
Range("J6").Value = 317
If Target.Address = Range("C338").Address Then _
Range("J6").Value = 318
If Target.Address = Range("C339").Address Then _
Range("J6").Value = 319
If Target.Address = Range("C340").Address Then _
Range("J6").Value = 320
If Target.Address = Range("C341").Address Then _
Range("J6").Value = 321
If Target.Address = Range("C342").Address Then _
Range("J6").Value = 322
If Target.Address = Range("C343").Address Then _
Range("J6").Value = 323
If Target.Address = Range("C344").Address Then _
Range("J6").Value = 324
If Target.Address = Range("C345").Address Then _
Range("J6").Value = 325
If Target.Address = Range("C346").Address Then _
Range("J6").Value = 326
If Target.Address = Range("C347").Address Then _
Range("J6").Value = 327
If Target.Address = Range("C348").Address Then _
Range("J6").Value = 328
If Target.Address = Range("C349").Address Then _
Range("J6").Value = 329
If Target.Address = Range("C350").Address Then _
Range("J6").Value = 330
If Target.Address = Range("C351").Address Then _
Range("J6").Value = 331
If Target.Address = Range("C352").Address Then _
Range("J6").Value = 332
If Target.Address = Range("C353").Address Then _
Range("J6").Value = 333
If Target.Address = Range("C354").Address Then _
Range("J6").Value = 334
If Target.Address = Range("C355").Address Then _
Range("J6").Value = 335
If Target.Address = Range("C356").Address Then _
Range("J6").Value = 336
If Target.Address = Range("C357").Address Then _
Range("J6").Value = 337
If Target.Address = Range("C358").Address Then _
Range("J6").Value = 338
If Target.Address = Range("C359").Address Then _
Range("J6").Value = 339
If Target.Address = Range("C360").Address Then _
Range("J6").Value = 340
If Target.Address = Range("C361").Address Then _
Range("J6").Value = 341
If Target.Address = Range("C362").Address Then _
Range("J6").Value = 342
If Target.Address = Range("C363").Address Then _
Range("J6").Value = 343
If Target.Address = Range("C364").Address Then _
Range("J6").Value = 344
If Target.Address = Range("C365").Address Then _
Range("J6").Value = 345
If Target.Address = Range("C366").Address Then _
Range("J6").Value = 346
If Target.Address = Range("C367").Address Then _
Range("J6").Value = 347
If Target.Address = Range("C368").Address Then _
Range("J6").Value = 348
If Target.Address = Range("C369").Address Then _
Range("J6").Value = 349
If Target.Address = Range("C370").Address Then _
Range("J6").Value = 350
If Target.Address = Range("C371").Address Then _
Range("J6").Value = 351
If Target.Address = Range("C372").Address Then _
Range("J6").Value = 352
If Target.Address = Range("C373").Address Then _
Range("J6").Value = 353
If Target.Address = Range("C374").Address Then _
Range("J6").Value = 354
If Target.Address = Range("C375").Address Then _
Range("J6").Value = 355
If Target.Address = Range("C376").Address Then _
Range("J6").Value = 356
If Target.Address = Range("C377").Address Then _
Range("J6").Value = 357
If Target.Address = Range("C378").Address Then _
Range("J6").Value = 358
If Target.Address = Range("C379").Address Then _
Range("J6").Value = 359
If Target.Address = Range("C380").Address Then _
Range("J6").Value = 360
If Target.Address = Range("C381").Address Then _
Range("J6").Value = 361
If Target.Address = Range("C382").Address Then _
Range("J6").Value = 362
If Target.Address = Range("C383").Address Then _
Range("J6").Value = 363
If Target.Address = Range("C384").Address Then _
Range("J6").Value = 364
If Target.Address = Range("C385").Address Then _
Range("J6").Value = 366
If Target.Address = Range("C386").Address Then _
Range("J6").Value = 367
If Target.Address = Range("C387").Address Then _
Range("J6").Value = 368
If Target.Address = Range("C388").Address Then _
Range("J6").Value = 369
If Target.Address = Range("C389").Address Then _
Range("J6").Value = 370
If Target.Address = Range("C390").Address Then _
Range("J6").Value = 371
If Target.Address = Range("C391").Address Then _
Range("J6").Value = 372
If Target.Address = Range("C392").Address Then _
Range("J6").Value = 373
If Target.Address = Range("C393").Address Then _
Range("J6").Value = 374
If Target.Address = Range("C394").Address Then _
Range("J6").Value = 375
If Target.Address = Range("C395").Address Then _
Range("J6").Value = 376
If Target.Address = Range("C396").Address Then _
Range("J6").Value = 377
If Target.Address = Range("C397").Address Then _
Range("J6").Value = 378
If Target.Address = Range("C398").Address Then _
Range("J6").Value = 379
If Target.Address = Range("C399").Address Then _
Range("J6").Value = 380
If Target.Address = Range("C400").Address Then _
Range("J6").Value = 381
If Target.Address = Range("C401").Address Then _
Range("J6").Value = 382
If Target.Address = Range("C402").Address Then _
Range("J6").Value = 383
If Target.Address = Range("C403").Address Then _
Range("J6").Value = 384
If Target.Address = Range("C404").Address Then _
Range("J6").Value = 385
If Target.Address = Range("C405").Address Then _
Range("J6").Value = 386
If Target.Address = Range("C406").Address Then _
Range("J6").Value = 387
If Target.Address = Range("C407").Address Then _
Range("J6").Value = 388
If Target.Address = Range("C408").Address Then _
Range("J6").Value = 389
If Target.Address = Range("C409").Address Then _
Range("J6").Value = 390
If Target.Address = Range("C410").Address Then _
Range("J6").Value = 391
If Target.Address = Range("C411").Address Then _
Range("J6").Value = 392
If Target.Address = Range("C412").Address Then _
Range("J6").Value = 393
If Target.Address = Range("C413").Address Then _
Range("J6").Value = 394
If Target.Address = Range("C414").Address Then _
Range("J6").Value = 395
If Target.Address = Range("C415").Address Then _
Range("J6").Value = 396
If Target.Address = Range("C416").Address Then _
Range("J6").Value = 397
If Target.Address = Range("C417").Address Then _
Range("J6").Value = 398
If Target.Address = Range("C418").Address Then _
Range("J6").Value = 399
If Target.Address = Range("C419").Address Then _
Range("J6").Value = 400
If Target.Address = Range("C420").Address Then _
Range("J6").Value = 401
If Target.Address = Range("C421").Address Then _
Range("J6").Value = 402
If Target.Address = Range("C422").Address Then _
Range("J6").Value = 403
If Target.Address = Range("C423").Address Then _
Range("J6").Value = 404
If Target.Address = Range("C424").Address Then _
Range("J6").Value = 405
If Target.Address = Range("C425").Address Then _
Range("J6").Value = 406
If Target.Address = Range("C426").Address Then _
Range("J6").Value = 407
If Target.Address = Range("C427").Address Then _
Range("J6").Value = 408
If Target.Address = Range("C428").Address Then _
Range("J6").Value = 409
If Target.Address = Range("C429").Address Then _
Range("J6").Value = 410
If Target.Address = Range("C430").Address Then _
Range("J6").Value = 411
If Target.Address = Range("C431").Address Then _
Range("J6").Value = 412
If Target.Address = Range("C432").Address Then _
Range("J6").Value = 413
If Target.Address = Range("C433").Address Then _
Range("J6").Value = 414
If Target.Address = Range("C434").Address Then _
Range("J6").Value = 415
If Target.Address = Range("C435").Address Then _
Range("J6").Value = 416
If Target.Address = Range("C436").Address Then _
Range("J6").Value = 417
If Target.Address = Range("C437").Address Then _
Range("J6").Value = 418
If Target.Address = Range("C438").Address Then _
Range("J6").Value = 419
If Target.Address = Range("C439").Address Then _
Range("J6").Value = 420
If Target.Address = Range("C440").Address Then _
Range("J6").Value = 421
If Target.Address = Range("C441").Address Then _
Range("J6").Value = 422
If Target.Address = Range("C442").Address Then _
Range("J6").Value = 423
If Target.Address = Range("C443").Address Then _
Range("J6").Value = 424
If Target.Address = Range("C444").Address Then _
Range("J6").Value = 425
If Target.Address = Range("C445").Address Then _
Range("J6").Value = 426
If Target.Address = Range("C446").Address Then _
Range("J6").Value = 427
If Target.Address = Range("C447").Address Then _
Range("J6").Value = 428
If Target.Address = Range("C448").Address Then _
Range("J6").Value = 429
If Target.Address = Range("C449").Address Then _
Range("J6").Value = 430
If Target.Address = Range("C450").Address Then _
Range("J6").Value = 431
If Target.Address = Range("C451").Address Then _
Range("J6").Value = 432
If Target.Address = Range("C452").Address Then _
Range("J6").Value = 433
If Target.Address = Range("C453").Address Then _
Range("J6").Value = 434
If Target.Address = Range("C454").Address Then _
Range("J6").Value = 435
If Target.Address = Range("C455").Address Then _
Range("J6").Value = 436
If Target.Address = Range("C456").Address Then _
Range("J6").Value = 437
If Target.Address = Range("C457").Address Then _
Range("J6").Value = 438
If Target.Address = Range("C458").Address Then _
Range("J6").Value = 439
If Target.Address = Range("C459").Address Then _
Range("J6").Value = 440
If Target.Address = Range("C460").Address Then _
Range("J6").Value = 441
If Target.Address = Range("C461").Address Then _
Range("J6").Value = 442
If Target.Address = Range("C462").Address Then _
Range("J6").Value = 443
If Target.Address = Range("C463").Address Then _
Range("J6").Value = 444
If Target.Address = Range("C464").Address Then _
Range("J6").Value = 445
If Target.Address = Range("C465").Address Then _
Range("J6").Value = 446
If Target.Address = Range("C466").Address Then _
Range("J6").Value = 447
If Target.Address = Range("C467").Address Then _
Range("J6").Value = 448
If Target.Address = Range("C468").Address Then _
Range("J6").Value = 449
If Target.Address = Range("C469").Address Then _
Range("J6").Value = 450
If Target.Address = Range("C470").Address Then _
Range("J6").Value = 451
If Target.Address = Range("C471").Address Then _
Range("J6").Value = 452
If Target.Address = Range("C472").Address Then _
Range("J6").Value = 453
If Target.Address = Range("C473").Address Then _
Range("J6").Value = 454
If Target.Address = Range("C474").Address Then _
Range("J6").Value = 455
If Target.Address = Range("C475").Address Then _
Range("J6").Value = 456
If Target.Address = Range("C476").Address Then _
Range("J6").Value = 457
If Target.Address = Range("C477").Address Then _
Range("J6").Value = 458
If Target.Address = Range("C478").Address Then _
Range("J6").Value = 459
If Target.Address = Range("C479").Address Then _
Range("J6").Value = 460
If Target.Address = Range("C480").Address Then _
Range("J6").Value = 461
If Target.Address = Range("C481").Address Then _
Range("J6").Value = 462
If Target.Address = Range("C482").Address Then _
Range("J6").Value = 463
If Target.Address = Range("C483").Address Then _
Range("J6").Value = 464
If Target.Address = Range("C484").Address Then _
Range("J6").Value = 465
If Target.Address = Range("C485").Address Then _
Range("J6").Value = 466
If Target.Address = Range("C486").Address Then _
Range("J6").Value = 467
If Target.Address = Range("C487").Address Then _
Range("J6").Value = 468
If Target.Address = Range("C488").Address Then _
Range("J6").Value = 469
If Target.Address = Range("C489").Address Then _
Range("J6").Value = 470
If Target.Address = Range("C490").Address Then _
Range("J6").Value = 471
If Target.Address = Range("C491").Address Then _
Range("J6").Value = 472
If Target.Address = Range("C492").Address Then _
Range("J6").Value = 473
If Target.Address = Range("C493").Address Then _
Range("J6").Value = 474
If Target.Address = Range("C494").Address Then _
Range("J6").Value = 475
If Target.Address = Range("C495").Address Then _
Range("J6").Value = 476
If Target.Address = Range("C496").Address Then _
Range("J6").Value = 477
If Target.Address = Range("C497").Address Then _
Range("J6").Value = 478
If Target.Address = Range("C498").Address Then _
Range("J6").Value = 479
If Target.Address = Range("C499").Address Then _
Range("J6").Value = 480
If Target.Address = Range("C500").Address Then _
Range("J6").Value = 481
If Target.Address = Range("C501").Address Then _
Range("J6").Value = 482
If Target.Address = Range("C502").Address Then _
Range("J6").Value = 483
If Target.Address = Range("C503").Address Then _
Range("J6").Value = 484
If Target.Address = Range("C504").Address Then _
Range("J6").Value = 485
If Target.Address = Range("C505").Address Then _
Range("J6").Value = 486
If Target.Address = Range("C506").Address Then _
Range("J6").Value = 487
If Target.Address = Range("C507").Address Then _
Range("J6").Value = 488
If Target.Address = Range("C508").Address Then _
Range("J6").Value = 489
If Target.Address = Range("C509").Address Then _
Range("J6").Value = 490
If Target.Address = Range("C510").Address Then _
Range("J6").Value = 491
If Target.Address = Range("C511").Address Then _
Range("J6").Value = 492
If Target.Address = Range("C512").Address Then _
Range("J6").Value = 493
If Target.Address = Range("C513").Address Then _
Range("J6").Value = 494
If Target.Address = Range("C514").Address Then _
Range("J6").Value = 495
If Target.Address = Range("C515").Address Then _
Range("J6").Value = 496
If Target.Address = Range("C516").Address Then _
Range("J6").Value = 497
If Target.Address = Range("C517").Address Then _
Range("J6").Value = 498
If Target.Address = Range("C518").Address Then _
Range("J6").Value = 499
If Target.Address = Range("C519").Address Then _
Range("J6").Value = 500
If Target.Address = Range("C520").Address Then _
Range("J6").Value = 501
If Target.Address = Range("C521").Address Then _
Range("J6").Value = 502
If Target.Address = Range("C522").Address Then _
Range("J6").Value = 503
If Target.Address = Range("C523").Address Then _
Range("J6").Value = 504
If Target.Address = Range("C524").Address Then _
Range("J6").Value = 505
If Target.Address = Range("C525").Address Then _
Range("J6").Value = 506
If Target.Address = Range("C526").Address Then _
Range("J6").Value = 507
If Target.Address = Range("C527").Address Then _
Range("J6").Value = 508
If Target.Address = Range("C528").Address Then _
Range("J6").Value = 509
If Target.Address = Range("C529").Address Then _
Range("J6").Value = 510
If Target.Address = Range("C530").Address Then _
Range("J6").Value = 511
If Target.Address = Range("C531").Address Then _
Range("J6").Value = 512
If Target.Address = Range("C532").Address Then _
Range("J6").Value = 513
If Target.Address = Range("C533").Address Then _
Range("J6").Value = 514
If Target.Address = Range("C534").Address Then _
Range("J6").Value = 515
If Target.Address = Range("C535").Address Then _
Range("J6").Value = 516
If Target.Address = Range("C536").Address Then _
Range("J6").Value = 517
If Target.Address = Range("C537").Address Then _
Range("J6").Value = 518
If Target.Address = Range("C538").Address Then _
Range("J6").Value = 519
If Target.Address = Range("C539").Address Then _
Range("J6").Value = 520
If Target.Address = Range("C540").Address Then _
Range("J6").Value = 521
If Target.Address = Range("C541").Address Then _
Range("J6").Value = 522
If Target.Address = Range("C542").Address Then _
Range("J6").Value = 523
If Target.Address = Range("C543").Address Then _
Range("J6").Value = 524
If Target.Address = Range("C544").Address Then _
Range("J6").Value = 525
If Target.Address = Range("C545").Address Then _
Range("J6").Value = 526
If Target.Address = Range("C546").Address Then _
Range("J6").Value = 527
If Target.Address = Range("C547").Address Then _
Range("J6").Value = 528
If Target.Address = Range("C548").Address Then _
Range("J6").Value = 529
If Target.Address = Range("C549").Address Then _
Range("J6").Value = 530
If Target.Address = Range("C550").Address Then _
Range("J6").Value = 531
If Target.Address = Range("C551").Address Then _
Range("J6").Value = 532
If Target.Address = Range("C552").Address Then _
Range("J6").Value = 533
If Target.Address = Range("C553").Address Then _
Range("J6").Value = 534
If Target.Address = Range("C554").Address Then _
Range("J6").Value = 535
If Target.Address = Range("C555").Address Then _
Range("J6").Value = 536
If Target.Address = Range("C556").Address Then _
Range("J6").Value = 537
If Target.Address = Range("C557").Address Then _
Range("J6").Value = 538
If Target.Address = Range("C558").Address Then _
Range("J6").Value = 539
If Target.Address = Range("C559").Address Then _
Range("J6").Value = 540
If Target.Address = Range("C560").Address Then _
Range("J6").Value = 541
If Target.Address = Range("C561").Address Then _
Range("J6").Value = 542
If Target.Address = Range("C562").Address Then _
Range("J6").Value = 543
If Target.Address = Range("C563").Address Then _
Range("J6").Value = 544
If Target.Address = Range("C564").Address Then _
Range("J6").Value = 545
If Target.Address = Range("C565").Address Then _
Range("J6").Value = 546
If Target.Address = Range("C566").Address Then _
Range("J6").Value = 547
If Target.Address = Range("C567").Address Then _
Range("J6").Value = 548
If Target.Address = Range("C568").Address Then _
Range("J6").Value = 549
If Target.Address = Range("C569").Address Then _
Range("J6").Value = 550
If Target.Address = Range("C570").Address Then _
Range("J6").Value = 551
If Target.Address = Range("C571").Address Then _
Range("J6").Value = 552
If Target.Address = Range("C572").Address Then _
Range("J6").Value = 553
If Target.Address = Range("C573").Address Then _
Range("J6").Value = 554
If Target.Address = Range("C574").Address Then _
Range("J6").Value = 555
If Target.Address = Range("C575").Address Then _
Range("J6").Value = 556
If Target.Address = Range("C576").Address Then _
Range("J6").Value = 557
If Target.Address = Range("C577").Address Then _
Range("J6").Value = 558
If Target.Address = Range("C578").Address Then _
Range("J6").Value = 559
If Target.Address = Range("C579").Address Then _
Range("J6").Value = 560
If Target.Address = Range("C580").Address Then _
Range("J6").Value = 561
If Target.Address = Range("C581").Address Then _
Range("J6").Value = 562
If Target.Address = Range("C582").Address Then _
Range("J6").Value = 563
If Target.Address = Range("C583").Address Then _
Range("J6").Value = 564
If Target.Address = Range("C584").Address Then _
Range("J6").Value = 565
If Target.Address = Range("C585").Address Then _
Range("J6").Value = 566
If Target.Address = Range("C586").Address Then _
Range("J6").Value = 567
If Target.Address = Range("C587").Address Then _
Range("J6").Value = 568
If Target.Address = Range("C588").Address Then _
Range("J6").Value = 569
If Target.Address = Range("C589").Address Then _
Range("J6").Value = 570
If Target.Address = Range("C590").Address Then _
Range("J6").Value = 571
If Target.Address = Range("C591").Address Then _
Range("J6").Value = 572
If Target.Address = Range("C592").Address Then _
Range("J6").Value = 573
If Target.Address = Range("C593").Address Then _
Range("J6").Value = 574
If Target.Address = Range("C594").Address Then _
Range("J6").Value = 575
If Target.Address = Range("C595").Address Then _
Range("J6").Value = 576
If Target.Address = Range("C596").Address Then _
Range("J6").Value = 577
If Target.Address = Range("C597").Address Then _
Range("J6").Value = 578
If Target.Address = Range("C598").Address Then _
Range("J6").Value = 579
If Target.Address = Range("C599").Address Then _
Range("J6").Value = 580
If Target.Address = Range("C600").Address Then _
Range("J6").Value = 581
If Target.Address = Range("C601").Address Then _
Range("J6").Value = 582
If Target.Address = Range("C602").Address Then _
Range("J6").Value = 583
If Target.Address = Range("C603").Address Then _
Range("J6").Value = 584
If Target.Address = Range("C604").Address Then _
Range("J6").Value = 585
If Target.Address = Range("C605").Address Then _
Range("J6").Value = 586
If Target.Address = Range("C606").Address Then _
Range("J6").Value = 587
If Target.Address = Range("C607").Address Then _
Range("J6").Value = 588
If Target.Address = Range("C608").Address Then _
Range("J6").Value = 589
If Target.Address = Range("C609").Address Then _
Range("J6").Value = 590
If Target.Address = Range("C610").Address Then _
Range("J6").Value = 591
If Target.Address = Range("C611").Address Then _
Range("J6").Value = 592
If Target.Address = Range("C612").Address Then _
Range("J6").Value = 593
If Target.Address = Range("C613").Address Then _
Range("J6").Value = 594
If Target.Address = Range("C614").Address Then _
Range("J6").Value = 595
If Target.Address = Range("C615").Address Then _
Range("J6").Value = 596
If Target.Address = Range("C616").Address Then _
Range("J6").Value = 597
If Target.Address = Range("C617").Address Then _
Range("J6").Value = 598
If Target.Address = Range("C618").Address Then _
Range("J6").Value = 599
If Target.Address = Range("C619").Address Then _
Range("J6").Value = 600
If Target.Address = Range("C620").Address Then _
Range("J6").Value = 601
If Target.Address = Range("C621").Address Then _
Range("J6").Value = 602
If Target.Address = Range("C622").Address Then _
Range("J6").Value = 603
If Target.Address = Range("C623").Address Then _
Range("J6").Value = 604
If Target.Address = Range("C624").Address Then _
Range("J6").Value = 605
If Target.Address = Range("C625").Address Then _
Range("J6").Value = 606
If Target.Address = Range("C626").Address Then _
Range("J6").Value = 607
If Target.Address = Range("C627").Address Then _
Range("J6").Value = 608
If Target.Address = Range("C628").Address Then _
Range("J6").Value = 609
If Target.Address = Range("C629").Address Then _
Range("J6").Value = 610
If Target.Address = Range("C630").Address Then _
Range("J6").Value = 611
If Target.Address = Range("C631").Address Then _
Range("J6").Value = 612
If Target.Address = Range("C632").Address Then _
Range("J6").Value = 613
If Target.Address = Range("C633").Address Then _
Range("J6").Value = 614
If Target.Address = Range("C634").Address Then _
Range("J6").Value = 615
If Target.Address = Range("C635").Address Then _
Range("J6").Value = 616
If Target.Address = Range("C636").Address Then _
Range("J6").Value = 617
If Target.Address = Range("C637").Address Then _
Range("J6").Value = 618
If Target.Address = Range("C638").Address Then _
Range("J6").Value = 619
If Target.Address = Range("C639").Address Then _
Range("J6").Value = 620
If Target.Address = Range("C640").Address Then _
Range("J6").Value = 621
If Target.Address = Range("C641").Address Then _
Range("J6").Value = 622
If Target.Address = Range("C642").Address Then _
Range("J6").Value = 623
If Target.Address = Range("C643").Address Then _
Range("J6").Value = 624
If Target.Address = Range("C644").Address Then _
Range("J6").Value = 625
If Target.Address = Range("C645").Address Then _
Range("J6").Value = 626
If Target.Address = Range("C646").Address Then _
Range("J6").Value = 627
If Target.Address = Range("C647").Address Then _
Range("J6").Value = 628
If Target.Address = Range("C648").Address Then _
Range("J6").Value = 629
If Target.Address = Range("C649").Address Then _
Range("J6").Value = 630
If Target.Address = Range("C650").Address Then _
Range("J6").Value = 631
If Target.Address = Range("C651").Address Then _
Range("J6").Value = 632
If Target.Address = Range("C652").Address Then _
Range("J6").Value = 633
If Target.Address = Range("C653").Address Then _
Range("J6").Value = 634
If Target.Address = Range("C654").Address Then _
Range("J6").Value = 635
If Target.Address = Range("C655").Address Then _
Range("J6").Value = 636
If Target.Address = Range("C656").Address Then _
Range("J6").Value = 637
If Target.Address = Range("C657").Address Then _
Range("J6").Value = 638
If Target.Address = Range("C658").Address Then _
Range("J6").Value = 639
If Target.Address = Range("C659").Address Then _
Range("J6").Value = 640
If Target.Address = Range("C660").Address Then _
Range("J6").Value = 641
If Target.Address = Range("C661").Address Then _
Range("J6").Value = 642
If Target.Address = Range("C662").Address Then _
Range("J6").Value = 643
If Target.Address = Range("C663").Address Then _
Range("J6").Value = 644
If Target.Address = Range("C664").Address Then _
Range("J6").Value = 645
If Target.Address = Range("C665").Address Then _
Range("J6").Value = 646
If Target.Address = Range("C666").Address Then _
Range("J6").Value = 647
If Target.Address = Range("C667").Address Then _
Range("J6").Value = 648
If Target.Address = Range("C668").Address Then _
Range("J6").Value = 649
If Target.Address = Range("C669").Address Then _
Range("J6").Value = 650
If Target.Address = Range("C670").Address Then _
Range("J6").Value = 651
If Target.Address = Range("C673").Address Then _
Range("J6").Value = 654
If Target.Address = Range("C674").Address Then _
Range("J6").Value = 655
If Target.Address = Range("C675").Address Then _
Range("J6").Value = 656
If Target.Address = Range("C676").Address Then _
Range("J6").Value = 657
If Target.Address = Range("C677").Address Then _
Range("J6").Value = 658
If Target.Address = Range("C678").Address Then _
Range("J6").Value = 659
If Target.Address = Range("C679").Address Then _
Range("J6").Value = 660
If Target.Address = Range("C680").Address Then _
Range("J6").Value = 661
If Target.Address = Range("C681").Address Then _
Range("J6").Value = 662
If Target.Address = Range("C682").Address Then _
Range("J6").Value = 663
If Target.Address = Range("C683").Address Then _
Range("J6").Value = 664
If Target.Address = Range("C684").Address Then _
Range("J6").Value = 665
If Target.Address = Range("C685").Address Then _
Range("J6").Value = 666
If Target.Address = Range("C686").Address Then _
Range("J6").Value = 667
If Target.Address = Range("C687").Address Then _
Range("J6").Value = 668
If Target.Address = Range("C688").Address Then _
Range("J6").Value = 669
If Target.Address = Range("C689").Address Then _
Range("J6").Value = 670
If Target.Address = Range("C690").Address Then _
Range("J6").Value = 671
If Target.Address = Range("C691").Address Then _
Range("J6").Value = 672
If Target.Address = Range("C692").Address Then _
Range("J6").Value = 673
If Target.Address = Range("C693").Address Then _
Range("J6").Value = 674
If Target.Address = Range("C694").Address Then _
Range("J6").Value = 675
If Target.Address = Range("C695").Address Then _
Range("J6").Value = 676
If Target.Address = Range("C696").Address Then _
Range("J6").Value = 677
If Target.Address = Range("C697").Address Then _
Range("J6").Value = 678
If Target.Address = Range("C698").Address Then _
Range("J6").Value = 679
If Target.Address = Range("C699").Address Then _
Range("J6").Value = 680
If Target.Address = Range("C700").Address Then _
Range("J6").Value = 681
If Target.Address = Range("C701").Address Then _
Range("J6").Value = 682
If Target.Address = Range("C702").Address Then _
Range("J6").Value = 683
If Target.Address = Range("C703").Address Then _
Range("J6").Value = 684
If Target.Address = Range("C704").Address Then _
Range("J6").Value = 685
If Target.Address = Range("C705").Address Then _
Range("J6").Value = 686
If Target.Address = Range("C706").Address Then _
Range("J6").Value = 687
If Target.Address = Range("C707").Address Then _
Range("J6").Value = 688
If Target.Address = Range("C708").Address Then _
Range("J6").Value = 689
If Target.Address = Range("C709").Address Then _
Range("J6").Value = 690
If Target.Address = Range("C710").Address Then _
Range("J6").Value = 691
If Target.Address = Range("C711").Address Then _
Range("J6").Value = 692
If Target.Address = Range("C712").Address Then _
Range("J6").Value = 693
If Target.Address = Range("C713").Address Then _
Range("J6").Value = 694
If Target.Address = Range("C714").Address Then _
Range("J6").Value = 695
If Target.Address = Range("C715").Address Then _
Range("J6").Value = 696
If Target.Address = Range("C716").Address Then _
Range("J6").Value = 697
If Target.Address = Range("C717").Address Then _
Range("J6").Value = 698
If Target.Address = Range("C718").Address Then _
Range("J6").Value = 699
If Target.Address = Range("C719").Address Then _
Range("J6").Value = 700
If Target.Address = Range("C720").Address Then _
Range("J6").Value = 701
If Target.Address = Range("C721").Address Then _
Range("J6").Value = 702
If Target.Address = Range("C722").Address Then _
Range("J6").Value = 703
If Target.Address = Range("C723").Address Then _
Range("J6").Value = 704
If Target.Address = Range("C724").Address Then _
Range("J6").Value = 705
If Target.Address = Range("C725").Address Then _
Range("J6").Value = 706
If Target.Address = Range("C726").Address Then _
Range("J6").Value = 707
If Target.Address = Range("C727").Address Then _
Range("J6").Value = 708
If Target.Address = Range("C728").Address Then _
Range("J6").Value = 709
If Target.Address = Range("C729").Address Then _
Range("J6").Value = 710
If Target.Address = Range("C730").Address Then _
Range("J6").Value = 711
If Target.Address = Range("C731").Address Then _
Range("J6").Value = 712
If Target.Address = Range("C732").Address Then _
Range("J6").Value = 713
If Target.Address = Range("C733").Address Then _
Range("J6").Value = 714
If Target.Address = Range("C734").Address Then _
Range("J6").Value = 715
If Target.Address = Range("C735").Address Then _
Range("J6").Value = 716
If Target.Address = Range("C736").Address Then _
Range("J6").Value = 717
If Target.Address = Range("C737").Address Then _
Range("J6").Value = 718
If Target.Address = Range("C738").Address Then _
Range("J6").Value = 719
If Target.Address = Range("C739").Address Then _
Range("J6").Value = 720
If Target.Address = Range("C740").Address Then _
Range("J6").Value = 721
If Target.Address = Range("C741").Address Then _
Range("J6").Value = 722
If Target.Address = Range("C742").Address Then _
Range("J6").Value = 723
If Target.Address = Range("C743").Address Then _
Range("J6").Value = 724
If Target.Address = Range("C744").Address Then _
Range("J6").Value = 725
If Target.Address = Range("C745").Address Then _
Range("J6").Value = 726
If Target.Address = Range("C746").Address Then _
Range("J6").Value = 727
If Target.Address = Range("C747").Address Then _
Range("J6").Value = 728
If Target.Address = Range("C748").Address Then _
Range("J6").Value = 729
If Target.Address = Range("C749").Address Then _
Range("J6").Value = 730
If Target.Address = Range("C750").Address Then _
Range("J6").Value = 731
If Target.Address = Range("C751").Address Then _
Range("J6").Value = 732
If Target.Address = Range("C752").Address Then _
Range("J6").Value = 733
If Target.Address = Range("C753").Address Then _
Range("J6").Value = 734
If Target.Address = Range("C754").Address Then _
Range("J6").Value = 735
If Target.Address = Range("C755").Address Then _
Range("J6").Value = 736
If Target.Address = Range("C756").Address Then _
Range("J6").Value = 737
If Target.Address = Range("C757").Address Then _
Range("J6").Value = 738
If Target.Address = Range("C758").Address Then _
Range("J6").Value = 739
If Target.Address = Range("C759").Address Then _
Range("J6").Value = 740
If Target.Address = Range("C760").Address Then _
Range("J6").Value = 741
If Target.Address = Range("C761").Address Then _
Range("J6").Value = 742
If Target.Address = Range("C762").Address Then _
Range("J6").Value = 743
If Target.Address = Range("C763").Address Then _
Range("J6").Value = 744
If Target.Address = Range("C764").Address Then _
Range("J6").Value = 745
If Target.Address = Range("C765").Address Then _
Range("J6").Value = 746
If Target.Address = Range("C766").Address Then _
Range("J6").Value = 747
If Target.Address = Range("C767").Address Then _
Range("J6").Value = 748
If Target.Address = Range("C768").Address Then _
Range("J6").Value = 749
If Target.Address = Range("C769").Address Then _
Range("J6").Value = 750
If Target.Address = Range("C770").Address Then _
Range("J6").Value = 751
If Target.Address = Range("C771").Address Then _
Range("J6").Value = 752
If Target.Address = Range("C772").Address Then _
Range("J6").Value = 753
If Target.Address = Range("C773").Address Then _
Range("J6").Value = 754
If Target.Address = Range("C774").Address Then _
Range("J6").Value = 755
If Target.Address = Range("C775").Address Then _
Range("J6").Value = 756
If Target.Address = Range("C776").Address Then _
Range("J6").Value = 757
If Target.Address = Range("C777").Address Then _
Range("J6").Value = 758
If Target.Address = Range("C778").Address Then _
Range("J6").Value = 759
If Target.Address = Range("C779").Address Then _
Range("J6").Value = 760
If Target.Address = Range("C780").Address Then _
Range("J6").Value = 761
If Target.Address = Range("C781").Address Then _
Range("J6").Value = 762
If Target.Address = Range("C782").Address Then _
Range("J6").Value = 763
If Target.Address = Range("C783").Address Then _
Range("J6").Value = 764
If Target.Address = Range("C784").Address Then _
Range("J6").Value = 765
If Target.Address = Range("C785").Address Then _
Range("J6").Value = 766
If Target.Address = Range("C786").Address Then _
Range("J6").Value = 767
If Target.Address = Range("C787").Address Then _
Range("J6").Value = 768
If Target.Address = Range("C788").Address Then _
Range("J6").Value = 769
If Target.Address = Range("C789").Address Then _
Range("J6").Value = 770
If Target.Address = Range("C790").Address Then _
Range("J6").Value = 771
If Target.Address = Range("C791").Address Then _
Range("J6").Value = 772
If Target.Address = Range("C792").Address Then _
Range("J6").Value = 773
If Target.Address = Range("C793").Address Then _
Range("J6").Value = 774
If Target.Address = Range("C794").Address Then _
Range("J6").Value = 775
If Target.Address = Range("C795").Address Then _
Range("J6").Value = 776
If Target.Address = Range("C796").Address Then _
Range("J6").Value = 777
If Target.Address = Range("C921").Address Then _
Range("J6").Value = 923
End Sub