Thread: Count Non-Blank cells in range for each row

I am trying to count the number of non-blank cells in columns B-F and paste the value in column H. I am trying to define the range for each row but can't get the syntax correct. Any help appreciated. Thanks.

Sub aa()

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For x = 2 To LastRow
        Agents = WorksheetFunction.CountA(Range("B" & x).("F" & x)
        Range("H" & x) = Agents
    Next

End Sub

Perhaps try:

Agents = WorksheetFunction.CountA(Range("B" & x & ":F" & x))
Range("H" & x).Value = Agents

or just

Range("H" & x).Value = WorksheetFunction.CountA(Range("B" & x & ":F" & x))

Sub snb()
  for each cl in columns(1).specialcells(2)
    cells(cl.row,8)=cl.entirerow.specialcells(2).count
  next
End Sub