Stopping code from filling all cells

[Alvaroro84]

My question is how do I stop the code in the bottom from filling up everything in that column
Sub Legal()
With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="RTO", Operator:=xlAnd
End With
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "SNAP"
End With
' add a reset filter
Worksheets("Master").AutoFilterMode = False

With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="CL03", Operator:=xlAnd
.AutoFilter field:=13, Criteria1:="0", Operator:=xlAnd
End With

'when it gets to this area the filter show that nothing fill this criteria so it only shows the title in column one
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "No "
End With
' after running this part it turn all columns into No for row 11.

 

[Alvaroro84]

My question is how do I stop the code in the bottom from filling up everything in that column
Sub Legal()
With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="RTO", Operator:=xlAnd
End With
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "SNAP"
End With
' add a reset filter
Worksheets("Master").AutoFilterMode = False

With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="CL03", Operator:=xlAnd
.AutoFilter field:=13, Criteria1:="0", Operator:=xlAnd
End With

'when it gets to this area the filter show that nothing fill this criteria so it only shows the title in column one
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "No "
End With
' after running this part it turn all columns into No for row 11.

My intention with this code is to filter and to add "No" to whatever the filter outputs in a specific column .

 

[Fluff]

Please stop posting the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

Thread closed.