EXCEL MACRO TO FIND SHIFT (Example : IF inside FOR)

Sub BM()

finalrow = Sheets("Sheet1").Range("A10000").End(xlUp).Row

For j = 2 To finalrow

If Sheets("Sheet1").Range("A" & j).Value > 5# And Sheets("Sheet1").Range("A" & j).Value < 7# Then


                Sheets("Sheet1").Range("B" & j).Value = "FIRST SHIFT"
End If


If Sheets("Sheet1").Range("A" & j).Value > 12# And Sheets("Sheet1").Range("A" & j).Value < 13# Then


                Sheets("Sheet1").Range("B" & j).Value = "SECOND SHIFT"
End If

If Sheets("Sheet1").Range("A" & j).Value > 22# And Sheets("Sheet1").Range("A" & j).Value < 23# Then


                Sheets("Sheet1").Range("B" & j).Value = "THIRD SHIFT"
End If