Two loop in one code
<p>I could use some assistance correcting the code below as what show when activated is the first image while I want to do the second image.</p>

<p>Also if you have other code to do the same job, please do. thanks in advance for your assistance.</p>

<p><a href="https://i.stack.imgur.com/UPzvf.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/UPzvf.jpg" alt="enter image description here"></a></p>

<pre><code> Private Sub Worksheet_Activate()
   Dim rng As Range, cell As Range
   Dim a As Range, az As Range
   Application.EnableEvents = False
   Set rng = Range("A2:AE2")
   Set az = Range("A3:AE6")
   For Each cell In rng
     For Each a In az
       If cell.Value = "Fri" Then
         a.Value = "Fri"
       ElseIf cell.Value = "Sat" Then
         a.Value = "Sat"
       End If
     Next a
   Next cell
   Application.EnableEvents = True
 End Sub
</code></pre>