Entering Set Value For Blank Records After Autofilter

Good afternoon,

I am looking to Autofilter data to only show records that have blanks in Column E of my dataset. Once filtered, I am counting the records to determine if any blank records exist. If there are blank records, I want column E to be populated with a value. I have gotten the filter part to work correctly, but am unable to get the macro to enter the value. Please see below for what I currently have.

Range("E:E").AutoFilter Field:=1, Criteria1:="="
BlankCount = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

If (BlankCount > 0) Then
ActiveSheet.AutoFilter.Range("G2:G" & TotalRowCount).SpecialCells(xlCellTypeVisible).Value = "PENDING"
End If

BlankCount and TotalRowCount are declared as Integers.

Thanks.

Please use code tags as per forum's rule.
If the cells are REAL empty after the filter, you can try

Please Login or Register  to view this content.

Please disregard, I have solved this.

Updated code:

Range("E:E").AutoFilter Field:=1, Criteria1:="="
BlankCount = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

If (BlankCount > 0) Then
Range("E2:E" & PreClassRowCount).SpecialCells(xlCellTypeVisible).Value = "PENDING"
End If