VBA: How to not delete "yellow" but at the same time delete "white"

[miclyzed]

I have a set of data with 2.6k rows, "yellow" portion (top and lowest) are the one that I want to keep it untouched.
I want to select the "red" rows and delete those non-highlighted ones.

Can anyone help me? Thank you.

 

[rlv01]

I want to select the "red" rows and delete those

Your thread title says delete white, but your thread text says delete red.

Book2
	A	B	C	D	E	F	G	H	I	J
1	Data Col 1	Data Col 2	Data Col 3	Data Col 4	Data Col 5	Data Col 6	Data Col 7	Data Col 8	Data Col 9	Data Col 10
2	toxone	nomadisms	molosse	waterpit	oxamidine	expressed	mainsails	upwork	maneges	metamale
3	acadie	arapaho	targing	goldanged	racemes	bluisness	whomble	vellums	teri	unsmugly
4	calzoons	engraven	tathata	xerocline	kryolite	intsv	playing	betowered	trachyte	hoofing
5	enkidu	fortilage	bemat	peshkar	nintu	naticine	kegler	kokoon	waying	hamline
6	varieties	frizzlier	vavasors	faintish	backpacks	frontiers	nobble	eleut	bitstone	kilorads
7	digeneous	agendums	skydove	goup	haveage	akkadian	demisang	tigellus	tollbook	osophy
8	tektites	evadne	likest	featherer	roofline	bakongo	herdess	interhyal	hypnone	heartdeep
9	jagataic	aldose	oncotic	overname	expiatist	unie	chevre	ranids	husking	molding
10	trefoils	lupis	ohio	remolds	tablier	greyskin	lepus	todidae	lobbed	ecus
11	phonate	eugenols	unknelled	cist	alley	lepus	herse	garava	shlock	skidding
12	dimmock	glycinin	vasotomy	orias	oleg	polytony	adjt	braiding	bottier	pithsome
13	digeneous	agendums	skydove	goup	haveage	akkadian	demisang	tigellus	tollbook	osophy
14	isurus	etypic	abasing	gestor	fers	vavasors	readded	melipona	balladist	galoot
15	digeneous	agendums	skydove	goup	haveage	akkadian	demisang	tigellus	tollbook	osophy
16	digeneous	agendums	skydove	goup	haveage	akkadian	demisang	tigellus	tollbook	osophy
17	digeneous	agendums	skydove	goup	haveage	akkadian	demisang	tigellus	tollbook	osophy
18	earphones	unfold	hanukkah	agisted	relong	renu	trompe	unfalling	pistareen	oceanian
19	eugenols	paginates	oozily	skinking	reiter	furfural	bikers	lustra	facit	dropsonde
20	cobaltous	monroeism	liesh	masticic	bikers	wraist	faltboats	shines	sall	agendums
21	plonking	draws	hypnone	letting	pistareen	lamaite	flatbeds	inhabit	grecian	herminone
22	flatbeds	garths	bevomit	nuadu	thiazide	reshuffle	transhape	schuln	blaoners	overslur
23	doorposts	padrino	agendums	pogroming	kissably	skive	entender	entender	fishes	humulene
Sheet1

Sub DeleteRedRows()
    Dim FilterRange As Range, DataRange As Range, DeleteRange As Range
    
    With ActiveSheet
        .AutoFilterMode = False
        
        Set FilterRange = .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
        With FilterRange
            Set DataRange = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        End With
        
        FilterRange.AutoFilter Field:=1, Criteria1:=vbRed, Operator:=xlFilterCellColor
        Set DeleteRange = Application.Intersect(FilterRange.SpecialCells(xlCellTypeVisible).EntireRow, DataRange.EntireRow)
        
        If Not DeleteRange Is Nothing Then
            DeleteRange.EntireRow.Delete
        End If
        
        .AutoFilterMode = False
    End With
End Sub