Actually all she needs is

Sub test()

Dim LastCell As Long
LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row

Range("H2:H" & LastCell).FormulaR1C1 = _
"=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN
THO*"",""*NELSONBECKY*""})*{1,2,3,4})"
End Sub

--
Regards,
Tom Ogilvy

"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
this is all you need

Sub test()

Dim LastCell As Long
LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row

Range("H2").FormulaR1C1 = _

"=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN
THO*"",""*NELSONBECKY*""})*{1,2,3,4})"

Range("H3").FormulaR1C1 = _

"=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN
THO*"",""*NELSONBECKY*""})*{1,2,3,4})"

Range("H2:H3").AutoFill Range("H2:H" & LastCell)

End Sub

--


Gary


"Nicole Seibert" wrote in
message
...
I think I am in love with Tom... mentally of course.

"Tom Ogilvy" wrote:

Sub abc()
Dim LastCell As Long
LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row
Range("H2").Select
ActiveCell.FormulaR1C1 = _

"=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN
THO*"",""*NELSONBECKY*""})*{1,2,3,4})"
Selection.AutoFill Destination:=Range("H2:H" & LastCell),
Type:=xlFillDefault

End Sub

worked for me.

--
Regards,
Tom Ogilvy


"Nicole Seibert" wrote:

I ask a question about this code earlier and that question was
answered.
Now
I have a new one:
Why doesn't the formula autofill?

Here is the code:
Dim LastCell As Long
LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row
Range("H2").Select
ActiveCell.FormulaR1C1 = _


"=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN
THO*"",""*NELSONBECKY*""})*{1,2,3,4})"
Range("H3").Select
ActiveCell.FormulaR1C1 = _


"=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN
THO*"",""*NELSONBECKY*""})*{1,2,3,4})"
Range("H2:H3").Select
Selection.Copy
Range("H4:H" & LastCell).Select
Selection.AutoFill Destination:=Range("H4:H" & LastCell),
Type:=xlFillDefault

Thanks,
Nicole