This should do it.
Sub test()
Dim i As Long
i = Range("S65536").End(xlUp).Row
Range("R" & i + 1).Value = "Total count"
Range("S" & i + 1).Value
Application.WorksheetFunction.CountIf(Range("S1:S" & i), "=No")
End Sub
--
Message posted from
http://www.ExcelForum.com