Change the fixed row number to the second visible row after applying the filter

[An Quala]

I want to select the second row # visible after applying the filter, currently it is "2:2" but I want it to be the second row # as first one is the header and then go down and select the visible range, can anyone help me in correcting this?

Thank you.

Sub Justtesting()

    Sheets("Sponsored Products").Select
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AQ$" & Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=2, Criteria1:=Array( _
        "Ad Group", "Bidding Adjustment", "Campaign", "Negative Keyword", "Product Ad", "=") _
        , Operator:=xlFilterValues
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp

End Sub

 

[Peter_SSs]

When working in vba it is rarely required to actually select worksheets, ranges etc to work with them. Further, doing so slows your code.
Guessing a bit at what you are trying to achieve, try this with a copy of your workbook.

Sub Justtesting_Alternative()
  With Sheets("Sponsored Products")
    With .Range("$A$1:$AQ$" & .Cells(Rows.Count, "A").End(xlUp).Row)
      .AutoFilter Field:=2, Criteria1:= _
        Array("Ad Group", "Bidding Adjustment", "Campaign", "Negative Keyword", "Product Ad", "="), Operator:=xlFilterValues
      .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
      .AutoFilter Field:=2
    End With
  End With
End Sub