使Excel VBA代码适用于所有行

我已经创建了下面的语句，它的工作原理与我需要的一样，但有一个缺陷，它只在我的工作表的第二行工作，第一行包含一个标题行

如何使其适用于工作表中的所有行？工作表中的行数每天都在变化

Dim result As String
Adnet = Range("AB2").Value
TSNumber = Range("BQ2").Value

If (Adnet = "goog" Or Adnet = "bing" Or TSNumber = "8006522096" Or TSNumber = "8006522097" Or TSNumber = "8006522098") Then
    result = "PPC"
Else
    result = "None/Other"
End If

Range("AC2").Value = result
End Sub

那么：

Sub qwerty()
    Dim result As String, N As Long, i As Long
    N = Cells(Rows.Count, "AB").End(xlUp).Row
    For i = 2 To N
        Adnet = Range("AB" & i).Value
        TSNumber = Range("BQ" & i).Value
        If (Adnet = "goog" Or Adnet = "bing" Or TSNumber = "8006522096" Or TSNumber = "8006522097" Or TSNumber = "8006522098") Then
            result = "PPC"
        Else
            result = "None/Other"
        End If
        Range("AC" & i).Value = result
    Next i
End Sub

---

子频道的第一行是什么样子的？子频道“子频道”