Hello

This is my code, and it works, but I can't stop it from looping continuously, I want it to stop once it gets to the last row of data. Please can you tell me what I am missing because I can't seem to work it out.

Thanks
Andy

For LRow = 1 To Selection.CurrentRegion.Rows.Count

Test1 = Left(Cells(LRow, 1), 2)
Test2 = Left(Cells(LRow, 1), 6)

    Select Case Test1
          Case "GF", "GW"
              Range("B" & LRow).Value = 50
              
        Case Else
                
   Select Case Test2
          Case "GLBDLX"
                Range("B" & LRow).Value = 20
          Case Else
            Range("A" & LRow).EntireRow.Delete
            LRow = LRow - 1
            End Select
        End Select
    Next LRow