countA

[thedogg]

I have following code:

    With Application.ActiveWorkbook.Sheets("Requests").Cells(4, 4)
    .FormulaR1C1 = _
            "=COUNTA('\\ad.com\TEAMS\TOOL_ADMIN\04_Requests\" & "[" & xFile.name & "]Request form'!C1)-5"

    .Copy
    .PasteSpecial xlPasteValues
    End With

How can I change the count A to have non blanks cells in range A7:A20? I have tried many times and I give up.