vba Clearcontents for even row only in a range

[gtd526]

Hello,
VBA - How to clearcontents for even row only in a specific range?
Thanks.

NFL.xlsm
	A	B
2	Teams	ATS
3
4	KC	-4
5	LAC	4
6	CAR
7	BUF	0
8	LVR	6
9	CLE	-6
10	NE	2.5
11	IND	-2.5
12	NYJ	10
13	MIA	-10
14	WAS	5
15	PHI	-5
Weekly Picks

Cell Formulas
Range	Formula
B5,B15,B13,B11,B9,B7	B5	=IF(ISTEXT(A4),IF(B4="PK","PK",IF(B4<0,B4*-1,B4*-1)),"")

 

[JEC]

You could try the methods below

Sub jec()
 With Cells(4, 1).CurrentRegion
   .Value = Evaluate(Replace(Replace("if(mod(if(%%>0,%%,1),2)=0,"""",&&)", "%%", .Columns(2).Address), "&&", .Address))
 End With
End Sub

Sub jecc()
 Dim ar As Variant, it As Variant
 Set ar = Cells(1, 99)
 
 For Each it In Cells(4, 1).CurrentRegion.Columns(2).Cells
   If it.Value > 0 And it.Value Like "*[24680]" Then Set ar = Union(ar, it.Offset(, -1).Resize(, 2))
 Next
 
 ar.ClearContents
End Sub

 

[gtd526]

You could try the methods below

Sub jec()
 With Cells(4, 1).CurrentRegion
   .Value = Evaluate(Replace(Replace("if(mod(if(%%>0,%%,1),2)=0,"""",&&)", "%%", .Columns(2).Address), "&&", .Address))
 End With
End Sub

Sub jecc()
 Dim ar As Variant, it As Variant
 Set ar = Cells(1, 99)
 
 For Each it In Cells(4, 1).CurrentRegion.Columns(2).Cells
   If it.Value > 0 And it.Value Like "*[24680]" Then Set ar = Union(ar, it.Offset(, -1).Resize(, 2))
 Next
 
 ar.ClearContents
End Sub

Thank you.