استاذ احمد قرني ممكن شرج الكود
 

Dim n, k, c As Integer
c=10
For n = 1 To 10 Step 5
k=k+n)
Next
If n >= c Then
c = c + 1
End If