I found this in the thread https://www.ozgrid.com/forum/f…quential-dates-times-list and was trying to modify it to fit my needs. This is what I have so far; I am trying to find those times that are missing from the filtered list but it is just coping all the times. It works for non filter times perfectly but not when I apply a filter to the data. Any help will much appreciated.

Sub rowinsert()

Dim ThisTime As Double

Dim NextTime As Double

Dim cel As Range

Dim rng As Range

Dim LastRow As Long

'Select sheet

Sheets("Sheet5").Activate

'Get last row of data

LastRow = Range("B" & Rows.Count).End(xlUp).Row

'Where to look

Set rng = Range("C2:C" & LastRow)

'Chek all

For Each cel In Intersect(rng, ActiveWindow.VisibleRange).SpecialCells(xlCellTypeVisible)

'Check if done

If cel.Offset(1, 0) = vbNullString Then GoTo endo

'Add 15 mins to cell value

ThisTime = Round((cel.Offset(0, 0) + TimeValue("00:15")) * 24 * 4) / 4 / 24

'Get next cel time

NextTime = Round(cel.Offset(1, 0) * 24 * 4) / 4 / 24

'Check if toime is + 15

If ThisTime <> NextTime Then

'No. Insert a row

cel.Offset(1, 0).EntireRow.Insert shift:=xlDown

'Put next req'd time

cel.Offset(1, 0) = ThisTime

'Put 'N/A'

cel.Offset(1, 1) = 0

' Range(cel.Offset(1, 1), cel.Offset(1, 7)) = "N/A"

End If

Next

endo:

'Cleanup

Set cel = Nothing

Set rng = Nothing

End Sub