There may be more efficient methods for a solution....
see if this fits the bill:
SourceSheet = Sheets("All").Index
ColumnQ = Sheets(SourceSheet).Range("Q1").Columns.Column
NonBlankCount = WorksheetFunction.CountA(Sheets(SourceSheet).Range("A:A"))
CountBlankRange = Range(Cells(2, ColumnQ), Cells(NonBlankCount,
ColumnQ)).Address
BlankCount =
WorksheetFunction.CountBlank(Sheets(SourceSheet).Range(CountBlankRange))