Sub From8To17()
Application.ScreenUpdating = False
For ay = 8 To 17
Application.ScreenUpdating = False
l_tab = "List of Players"
g_tab = "Gradings"
chk_g = Sheets(l_tab).Cells(ay, 7)
chk_k = Sheets(l_tab).Cells(ay, 11)
yg = WorksheetFunction.Match(chk_g, Sheets("Gradings").Range("A:A"), 0)
With Sheets(g_tab)
.Cells(yg, 15) = .Cells(yg, 4)
.Cells(yg, 16) = Now
.Cells(yg, 4) = chk_k
End With
Next ay
Application.ScreenUpdating = True
End Sub