Match week and populate approve/reject text after each match row

Dear Experts,

Can you please assist me with the following.
Attached an Excel file, the idea is that this file is an approval form per week.
This need to be signed by 2 persons via a button (approve or reject).
Now the part were i need assistance.
The last 2 columns should be populated by a text (approved/rejected) trough above button, but only the rows which match the week number.
I tried with index, match, offset but can't create a working code.
In attached file an example for Week 6 and how related fields should be populated once related button is pressed.
Can you please assist me?
Many Thanks
Lumiance

I have created a working code.. thank you for viewed time!

Used code:

Sub ApproveManager()
    Application.ScreenUpdating = False
    
    'Declare variables
    Dim iSheet As Integer, iRow As Long, iRowL As Long, SelectedWeek As Long
       
       'Set up the count as the number of filled rows in the first column and setup selected week
       iRowL = Cells(Rows.Count, 1).End(xlUp).Row
       SelectedWeek = ActiveSheet.Range("D2")
       
       'Cycle through all the cells in that column:
       For iRow = 6 To iRowL
       
          'For every cell that is not empty, search through the first column for a value that match

             For iSheet = ActiveSheet.Index + 1 To Worksheets.Count

'For every cell in first column that matches the week value place the relevant text in the relevant row, else nothing
If Cells(iRow, 1).Value = SelectedWeek Then
             Cells(iRow, 16).Font.Color = vbBlue
             Cells(iRow, 16).Value = "Approved by " & Range("G1") & " on " & Format(Date, "DD-MMM-YY") & " at " & Format(Time, "HH:MM")
Else
End If
             Next iSheet
       Next iRow
MsgBox ("Write off for week " & SelectedWeek & " is signed, if no record for week " & SelectedWeek & " then nothing is signed")
ActiveSheet.Range("D2").Select
       Application.ScreenUpdating = True
End Sub