Help again with applying macro to everyone cell/row

[spiffmonkey1]

Hi, so i have a macro-

Sub ChangecolorAnalysis()
'1 box colored G=G
If WorksheetFunction.CountIf(Range("D69:D80"), "yes") = 1 _
And WorksheetFunction.CountIf(Range("D69:D80"), "N/A") = 8 _
And WorksheetFunction.CountBlank(Range("D69:D80")) = 3 Then
Range("D67", "E67") = "yes"
Else:
Range("D67", "E67") = "N/A"
End If
End Sub

So D67="yes" when there are 1 "yes", 8 "N/A", and 3 blanks. The problem is I want this to apply to MANY columns such as column E,F,G,H,I,J,K. The problem with this macro is that it only apples to one column specifically

Thanks so much!

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/showthread.php?t=561985

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).