need help subtracting time stamps between two cells and highlighting if value lies within certain ranges

[Johnmcgreevy]

It has been a long time since I tried to work with excel macros/vba. . . the report I receive populates time in a "general" format. I need to compare "B"&count with "B"&count+1. If the difference is less than 10 minutes, 'Next', if between 10.01 and 15, highlight row yellow, if greater than 15.01 then highlight row red. . .I'm not sure why I can't figure this out, cause I know I've done it before... it's just been a decade and a half, so there are some new commands I'm not familiar with. If this is something you can help with, I can upload an image of the spreadsheet and the code I'm 'ruining

 

[Johnmcgreevy]

Scanner ID:		1911-23890			From:	9/2/2020 11:06:25 PM
Total:		80					To:	9/3/2020 6:27:10 AM
Date	Time	Chip ID	Chips Type	Description
9/2/2020	11:06:25 PM	002E0059D0E9	Checkpoint	Bedroom3
9/2/2020	11:06:37 PM	002E005A088E	Checkpoint	Bedroom4
9/2/2020	11:10:31 PM	002E0059D0E9	Checkpoint	Bedroom3
9/2/2020	11:10:38 PM	002E005A088E	Checkpoint	Bedroom4
9/2/2020	11:21:10 PM	002E0059D0E9	Checkpoint	Bedroom3
9/2/2020	11:21:17 PM	002E005A088E	Checkpoint	Bedroom4
9/2/2020	11:29:21 PM	002E005A088E	Checkpoint	Bedroom4
9/2/2020	11:29:32 PM	002E0059D0E9	Checkpoint	Bedroom3
9/2/2020	11:44:22 PM	002E0059D0E9	Checkpoint	Bedroom3
9/2/2020	11:44:30 PM	002E005A088E	Checkpoint	Bedroom4
9/2/2020	11:51:41 PM	002E0059D0E9	Checkpoint	Bedroom3
9/2/2020	11:51:48 PM	002E005A088E	Checkpoint	Bedroom4
9/3/2020	12:03:21 AM	002E005A088E	Checkpoint	Bedroom4
9/3/2020	12:03:32 AM	002E0059D0E9	Checkpoint	Bedroom3
9/3/2020	12:11:01 AM	002E0059D0E9	Checkpoint	Bedroom3
9/3/2020	12:11:13 AM	002E005A088E	Checkpoint	Bedroom4
9/3/2020	12:24:51 AM	002E0059D0E9	Checkpoint	Bedroom3
9/3/2020	12:25:00 AM	002E005A088E	Checkpoint	Bedroom4
9/3/2020	12:29:44 AM	002E005A088E	Checkpoint	Bedroom4
9/3/2020	12:29:52 AM	002E0059D0E9	Checkpoint	Bedroom3
9/3/2020	1:39:10 AM	002E0059D0E9	Checkpoint	Bedroom3
9/3/2020	1:39:22 AM	002E005A088E	Checkpoint	Bedroom4

 

[Johnmcgreevy]

For count1 = 3 To 100


Range("B3:B100").Select
Selection.NumberFormat = "h:mm:ss;@"


x = 3

y = Range("B" & x)



Do Until x = 70

If Range("B" & x + 1).Value = y Then

Range("B" & x).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C[-1]-RC[-1]"


Else: y = Range("B" & x + 1)

End If

x = x + 1
Loop

Next
x = 3

For x = 3 To 70

If Range("B" & x).Value2 <= 0.00695 Then


Range("A" & x, Range("A" & x).End(xlToRight)).Select

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16777215
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If

If Range("B" & x).Value >= 0.0069500001 And _
Range("B" & x).Value <= 0.0104282 Then _


Range("A" & x, Range("A" & x).End(xlToRight)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If

If Range("B" & x).Value2 >= 0.010428200001 Then


Range("A" & x, Range("A" & x).End(xlToRight)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If

If Range("A" & x + 1).Value = Empty Then GoTo Here:

Next


Here: