Sub KasujWiersze()
  Dim w As Long

  w = Cells(Rows.Count, "A").End(xlUp).Row
  Do While w >= 1
    If Cells(w, "A").Value = "AGD - Produkty" Then
      Rows(w).Delete
    End If
    w = w - 1
  Loop
End Sub