Hi MArk,

Am Mon, 11 May 2020 15:14:27 -0700 (PDT) schrieb NoodNutt:

StoreName as Range. = Col_A
TruckNo as Range... = Col_B
TimeArr..... = Col_C (dd/mm/yyyy h:mm)
TimeDep..... = Col_D (dd/mm/yyyy h:mm)

1. In the example below, the first TruckValue is "Truck 03"
2. I need to Find TruckValue.firstRow & TruckValue.lastRow of this TruckValue
3. All rows in between need to be deleted
4. TruckValue.FirstRow.Offset(,2).value = TruckValue.LastRow.Offset(,2)
5. Delete TruckValue.LastRow
6. Next

If there is only one Row of TruckValue Data then skip to next TruckValue

try:

Sub Test()
Dim LRow As Long, i As Long
Dim First As Long, Last As Long

With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LRow To 5 Step -1
First = i
Last = Application.CountIf(.Range("B4:B" & LRow), .Cells(First, 2))
If Last 1 Then
.Rows(First & ":" & First - Last + 2).Delete
i = i - Last + 1
End If
Next
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016