ascending list problem

[Hovrzone]

I have an ascending list that is a list of time blocks ie:0000-0806, 0030-0836.
The list starts at 0000-0806 and would like it to start at 0800-1606 but need help.

Regards,

Brett

 

[jim may]

would like it to start at 0800-1606 << ??? huh? tell us more; this is a bit confusing.

 

[Hovrzone]

Thanks Jim,

I have a data validation list that uses the code attached below which lists the time slots in ascending order, which naturally starts with 0000-0806 (midnight to 6 minutes past 8 in the morning). I have created the list so that it deleted blank cells and also if a time that is entered into a worksheet is not in the list it gets added

I would like the lsit to start at 0800-1606 not 0000-0806.

If Application.WorksheetFunction.CountIf(ws.Range("PickList"), Cells(iRow, iCol).Value) Then
Exit Sub
Else
i = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Range("A" & i).Value = Cells(iRow, iCol).Value
'then sort the validation list
ws.Range("PickList").Sort Key1:=ws.Range("A1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If

 

[jim may]

Why not Start your Range name ("PickList") with the row # 0800-1606,
Or am I missing something here
Or Why not eliminate delete all rows prior to the 0800-1606 row?