I would like to loop count different sets of data. They are separated by a blank. Here is the VBA i have for counting but I want to make it loop for each data set.
Code:
Sub RowCount()
Dim countnonblank As Integer, myRange As Range
Set myRange = Columns("A:A")
countnonblank = Application.WorksheetFunction.CountA(myRange)
Dim theCount
theCount = countnonblank - (Application.WorksheetFunction.CountIf(Range("A:AA"), "Title") * 2 + 1)
MsgBox "Data Rows " & theCount
End Sub