Find and delete rows that contain date's that change.

[msbeaudry]

Trying to take a report that is copied from another program into excel and remove the unneeded data and format it into a usable format.
Code Currently using to remove Dates:

If Cell Like "Tuesday*" Or Cell Like "Monday*" Like Cell = "Wednesday*" Then
Cell.EntireRow.Delete
End If

It is not deleting anything. Does anyone know what I am missing?
Initial Format:

Transaction Count	Scheduled In Queue	Actual In Queue	In Queue Variance	In Queue Variance %	Scheduled Out Of Queue	Actual Out Of Queue	Out Of Queue Variance	Out Queue Variance %	Total Scheduled	Total Variance	Total Adherence %	Non Scheduled / In Queue Hours
8284	1033.3	891.28	142.02	86.26%	321.22	280.58	40.64	87.35%	1354.52	182.66	86.51%	11.12
Agent, Troy
Schedule Date	Transaction Count	Scheduled In Queue	Actual In Queue	In Queue Variance	In Queue Variance %		Scheduled Out Of Queue	Actual Out Of Queue	Out Of Queue Variance	Out Queue Variance %		Total Scheduled	Total Variance	Total Adherence %		Non Scheduled / In Queue Hours
Tuesday, 03 October 2017	1	0	0	0	0.00%		2	2	0	100.00%		2	0	100.00%		0
Wednesday, 04 October 2017	1	2	0	2	0.00%		0	0	0	0.00%		2	2	0.00%		0
Thursday, 05 October 2017	3	2	0	2	0.00%		0	0	0	0.00%		2	2	0.00%		0
Friday, 06 October 2017	1	2	0	2	0.00%		0	0	0	0.00%		2	2	0.00%		0
Monday, 09 October 2017	0	0	0	0	0.00%		0	0	0	0.00%		0	0	0.00%		0
Subtotal:	6	6	0	6	0.00%		2	2	0	100.00%		8	6	25.00%		0

<colgroup><col span="17"></colgroup><tbody>
</tbody>

Changed to:

Agent Name	Transaction Count	Scheduled In Queue	Actual In Queue	In Queue Variance	In Queue Variance %	Scheduled Out Of Queue	Actual Out Of Queue	Out Of Queue Variance	Out Queue Variance %	Total Scheduled	Total Variance	Total Adherence %	Non Scheduled / In Queue Hours
Agent, Troy	6	6	0	6	0.00%	2	2	0	100.00%	8	6	25.00%	0

<colgroup><col><col span="13"></colgroup><tbody>
</tbody>

 

[MickG]

This worked for me !!

[COLOR="Navy"]Sub[/COLOR] MG10Oct09
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Lst = Range("A" & Rows.Count).End(xlUp).Row
[COLOR="Navy"]For[/COLOR] n = Lst To 1 [COLOR="Navy"]Step[/COLOR] -1
    [COLOR="Navy"]With[/COLOR] Range("A" & n)
        [COLOR="Navy"]If[/COLOR] .Value Like "Tuesday*" Or .Value Like "Monday*" Or .Value Like "Wednesday*" [COLOR="Navy"]Then[/COLOR]
            .EntireRow.Delete
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick