又碰到难题，符合重量和地址的自动变色，VBA怎么写，求大神帮忙

A列是重量，B列是地址，当列数量大于40且B列是重庆或西安的，自动把符合要求的整列变成红色，用VBA怎么操作

Option Explicit
Sub abc()
　Dim a, i, j, t
　With [a1].CurrentRegion.Resize(, 2)
　　.Font.Color = vbBlack
　　a = .Value
　End With
　t = Split("重庆市,陕西省", ",") '可增删
　For i = 2 To UBound(a)
　　If a(i, 1) > 40 Then
　　　For j = 0 To UBound(t)
　　　　If InStr(a(i, 2), t(j)) Then
　　　　　Cells(i, "a").Resize(, 2).Font.Color = vbRed
　　　　　Exit For
　　　　End If
　　　Next
　　End If
　Next
End Sub