Answer must be in VBA code

6. (7 points) The file Sales Data contains monthly sales amounts for 40 sales regions. Write a sub that uses a For loop to color the font of every other row (for Regions 1, 3, etc.) magenta. Color only the data area, columns B to M, starting with Row 2 (Region 1) in the spreadsheet. OVER 7. (6 points) Write a sub that uses a Do Loop that keeps increasing the value in Cell J5 by 15% until the value equals or exceeds 1000. If the value is already 1000 or higher, do not increase it at all. B C D E M 0 P 1 Jan Feb Mar 2 Nov 13383 13263 10696 7014 8438 14837 Dec 9445 13913 6824 3 4 13531 14399 9118 5680 8511 11438 14382 7202 14945 Aug 14055 14472 14304 14087 9329 9007 9244 5 6 7 8 Apr 13589 14419 6826 12194 14547 9590 12279 8118 14864 13809 10023 10941 8310 14922 5678 11724 6229 8143 12166 8586 10394 14055 8536 10843 9580 14551 9974 Jun 8169 5005 8652 9343 12095 8338 13288 10260 13231 13962 7467 10904 14094 Oct 5254 7053 8687 14107 11046 5647 9103 5282 12550 9954 8972 5938 8692 11194 10431 14306 8035 5089 13322 10581 8532 Sep 5751 11185 12708 9826 9375 11647 7508 6871 5209 10149 10163 9152 13700 12778 7053 14637 9 10 9324 12439 12237 11 12 5997 8434 5087 8227 May 5357 7854 10611 13596 12145 14748 13571 5156 14892 9517 13184 9166 11616 9013 5920 12882 6870 11680 12177 12068 12646 6040 8737 11043 10607 5650 12897 11697 5349 12908 10194 8428 8830 14601 13436 9875 9934 7101 8087 10362 13 14 9877 6485 8712 11725 14101 12234 6424 11916 12222 10845 15 14097 11825 8382 9371 13536 14854 11230 16 9401 8475 13853 17 18 7667 7691 14499 14414 10179 8437 8083 6406 10275 13237 13143 9104 8622 10785 11627 13903 13466 10381 11159 12747 10351 6297 19 20 21 Region 1 Region 2 Region 3 Region 4 Region 5 Region 6 Region 7 Region 8 Region 9 Region 10 Region 11 Region 12 Region 13 Region 14 Region 15 Region 16 Region 17 Region 18 Region 19 Region 20 Region 21 Region 22 Region 23 Region 24 Region 25 Region 26 Region 27 Region 28 Region 29 Region 30 Region 31 Region 32 Region 33 Region 34 Region 35 Region 36 Region 37 Region 38 Region 39 Region 40 14582 12699 13585 13635 8879 11955 7930 12418 9321 6584 10949 12630 10930 8722 5788 13578 10342 12024 Jul 8907 7679 6725 13795 10812 12141 6021 14481 6601 12928 11559 12369 11999 6092 5980 6058 9473 11795 9918 11350 13702 9339 5045 12108 12508 12654 5775 11494 13143 11339 5466 14552 8181 12219 6730 12119 10842 7176 6387 11462 9680 11606 8192 7965 12582 6307 13890 10633 7948 6347 10359 11096 11578 11946 7903 10555 7182 9667 14645 6490 10259 8021 6327 10844 7279 14040 12986 5154 7943 8546 5101 12388 11420 12635 22 11656 12195 8232 9856 5406 8781 11393 11278 5427 11518 13019 8551 12354 6618 23 24 25 26 27 28 10016 11267 12225 13106 10506 14850 5558 5944 6789 9581 12091 12344 14572 5029 8748 11957 12150 12879 6620 6134 14997 9306 10849 13255 13022 11410 6609 8825 5364 8576 29 12090 8435 13039 10877 10601 9735 14219 6600 13334 13974 14277 9914 30 5631 6186 6544 12126 12322 12848 9851 9651 13387 5637 6580 6568 6201 6481 10512 10701 6518 5308 10489 14528 31 32 9163 7128 8623 10475 13896 12351 6744 9356 9504 9484 8359 11451 12113 7324 8487 11090 11726 14593 8652 14817 9376 12704 33 34 8489 7447 9140 7026 10989 8441 9481 7452 13445 12149 7373 11922 9904 7871 10819 11016 5345 14732 5775 14346 5682 6709 8855 10196 5490 35 12481 9049 7454 8588 8539 11092 12561 8217 13257 6059 8649 8696 8524 8599 14547 14752 11889 13829 36 6289 10103 10997 12171 7807 8629 9608 6675 5566 14948 12316 10004 13081 7775 11935 13790 10483 12426 5068 13074 12277 37 11261 5925 12255 5915 9633 6314 9992 12832 13610 8871 8637 9813 5687 14983 9544 8309 38 9770 11523 13202 8435 6365 7636 12840 39 5313 5990 14217 40 6473 11148 8770 5958 14454 6483 8572 13794 7313 41 42 43