Hello, I need to count how many cells have entries in column A. I have the following code so far, but the variable is returning 17 instead of the 2 entries that actually exist. Does anyone know a more reliable count function that wont include blanks?

Dim CountVar As Long
    CountVar = Application.CountA(Columns("A"))