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
Bookmarks