How to set a loop around a script?

[Catotjuh91]

I have made the VBA script below.
With the script I can do every row by hand.
But I have around 5,000 rows, so I want to try to make a loop around it or something like that.
But I don't know how.
Can anybody help me?
Thank you.

Sub SetGrades()

    Dim score As Integer
    
    score = ActiveCell.Value
    
    Select Case score
    
        Case 0 To 50.3778337531486
            ActiveCell(1, 2).Value = "TI"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 255, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
                       
        Case 50.3778337531487 To 176.32241813602
            ActiveCell(1, 2).Value = "ARI"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 0, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter

        Case 176.32241813603 To 251.889168765743
            ActiveCell(1, 2).Value = "PRI"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 255, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter

       Case 251.889168765744 To 302.267002518892
            ActiveCell(1, 2).Value = "TI unknown"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 255, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter

        Case 302.267002518892 To 428.211586901763
            ActiveCell(1, 2).Value = "ARI unknown"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
           ActiveCell(1, 2).Interior.Color = RGB(255, 0, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter

        Case 428.211586901764 To 503.778337531486
            ActiveCell(1, 2).Value = "PRI unknown"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 255, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
        
        Case 503.778337531487 To 508.816120906801
            ActiveCell(1, 2).Value = "TI emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 255, 0)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 508.816120906802 To 518.891687657431
            ActiveCell(1, 2).Value = "ARI emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 0, 0)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
                     
        Case 518.891687657432 To 528.96725440806
            ActiveCell(1, 2).Value = "PRI emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 255, 0)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 528.96725440807 To 609.571788413098
            ActiveCell(1, 2).Value = "SK"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 0, 255)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
        
        Case 609.571788413099 To 739.478589420655
            ActiveCell(1, 2).Value = "FE"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 255, 255)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 739.478589420656 To 881.612090680101
            ActiveCell(1, 2).Value = "PRF"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 0, 255)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 881.612090680102 To 982.367758186398
            ActiveCell(1, 2).Value = "FRD"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 153, 0)
            ActiveCell(1, 3).Value = "No"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 982.367758186399 To 984.886649874055
            ActiveCell(1, 2).Value = "SK emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 0, 255)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
        
        Case 984.886649874056 To 989.92443324937
            ActiveCell(1, 2).Value = "FE emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(0, 255, 255)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 989.92443324938 To 994.962216624685
            ActiveCell(1, 2).Value = "PRF emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interior.Color = RGB(255, 0, 255)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
            
        Case 994.962216624686 To 1000
            ActiveCell(1, 2).Value = "FRD emergency"
            ActiveCell(1, 2).HorizontalAlignment = xlCenter
            ActiveCell(1, 2).Interios.Color = RGB(255, 153, 0)
            ActiveCell(1, 3).Value = "Yes"
            ActiveCell(1, 3).HorizontalAlignment = xlCenter
        
        Case Else
            MsgBox "No score entered"
         
   End Select
   
End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

[nigelbloomy]

You can put your code inbetween the for each and next cell lines

Dim rng As Range
Dim Cell As Range

Set rng = ActiveSheet.Range("A1:A500")
For Each Cell In rng

Next Cell

You could also do this if you want to select all of the rows first.

Dim rng As Range
Dim Cell As Range

Set rng = Selection
For Each Cell In rng

Next Cell

[Catotjuh91]

Thank you for your responds.
Unfortunately is isn't working.

[dipique]

I think I see what's going on. Your code isn't looping through every cell to perform an action (like Nigel's example does), it's looping through every row and performing actions on that row. Without knowing exactly how your sheet is set up, I think this will work:

Dim FirstScoreRow as Integer
Dim LastScoreRow as Integer
FirstScoreRow = 2         'You'll need to adjust these to the correct row numbers
LastScoreRow = 5000

Dim score As Integer
Dim x as Integer
For x = FirstScoreRow to LastScoreRow
    score = Cells(x,1) 'gets the score from the first column of this row    
    Select Case score
    
        Case 0 To 50.3778337531486
            Cell.Value = "TI"
            Cells(x, 2).HorizontalAlignment = xlCenter
            Cells(x, 2).Interior.Color = RGB(0, 255, 0)
            Cells(x, 3).Value = "No"
            Cells(x, 3).HorizontalAlignment = xlCenter

        '...The rest of your cases...

        Case Else
            MsgBox "No score entered"
         
   End Select
Next x