Ray,

I've assumed that you have true times, not strings....

Sub ClearTimes()
Dim myC As Range
Dim T1 As Date
Dim T2 As Date
T1 = Range("K6").Value
T2 = Cells(Rows.Count, "K").End(xlUp).Value
For Each myC In Intersect(Range("B:B"), ActiveSheet.UsedRange)
If myC.Value < T1 Or myC.Value T2 Then myC.ClearContents
Next myC
End Sub

HTH,
Bernie
MS Excel MVP



"Ray" wrote in message
...
I've searched through most of the strings in the forum, but I cannot find
the
exact help I need. What I need my code to do is use a value that's found
in
cell K6 (which is a time in format h:mm:ss, and will change) and find the
same time value in column B. Then delete all the data that occurs before
that value. I do not want to delete the rows, just the cells. I use the
code,
FinalRow = Cells(Rows.Count, "K").End(xlUp).Row
To find the last time value in column K. I want to use the time value
that
occurs at the end of column K to find the same value in Column B. Only
this
time I want to delete all the data that occurs after that value. Again,
the
cells, not the entire row.

Thankd for your help.