I need help in this VBA code

1. Write a sub in which you activate Sheet3 and clear all content and formatting. Create a pair of nested loops both looping over the integers 1 to 7. Supposing that your two looping values are i and j, write to cells(i,j) Mod 2.

2. write a sub in which you activate Sheet 5, clear its contents, change all rows to be 8 points tall and 0.8 points wide. Loop through the first three rows and the first 16 columns. Color the first row shades of red beginning at 15 (RGB(15,0,0)) and incrementing by 16 until it reaches 255.