I have coded the following VBA to count blank cells in a range. The cells contain formulas so i had to account for that but my code is too slow.
Column Q, R, S are phone numbers derived from trim operations and I am counting the cells without phone numbers.
Does anyone have a faster way to conduct this operation?
Dim MissingPhCt As Integer
Dim R as Integer
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
For MissingPhCt = 1 To LastRow - 1
R = MissingPhCt + 1
ActiveCell.Offset(MissingPhCt - 1, 0) = WorksheetFunction.CountIf(Range(Cells(R, "Q"), Cells(R, "S")), "")
Range("T1").Value = "Missing Phone #s"
Range(Cells(1, 1), Cells(LastRow, LastCol + 3)).Select