For | Next ...OR... Do | Loop

[aapp81]

i have this code:

Sub CountProducts()

Dim scol As String

LastRow = ActiveSheet.UsedRange.Rows.Count
Range("A" & LastRow + 3).Select
scol = Chr$(ActiveCell.column + 64)
ActiveCell.Formula = "=counta(" & scol & "2:" & scol & _ ActiveCell.Row
- 1 & ")"

End Sub

and what i need is to either loop once from range A : S or just for
each range do the code, then next until range is S...

can anyone show me how please?

 

[aapp81]

thank you very much, works great