Подсчет заполненных ячеек Excel - VB

Формулировка задачи:

Здравствуйте! Достаточно давно столкнулся с проблемой подсчета заполненных ячеек экселя, которую благополучно решил. НО! недавно обнаружил, что тот метод который идеально работал - оказался не универсальным, а именно: если стобец пустой, т.е. число заполненных ячеек в нем равно нулю, счетчик все равно выдает единицу. Вот мой код, помогите если кто знает как решить данную проблему:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command6_Click()
Set MyXL = GetObject(App.Path & "\4.xls")
  MyXL.Application.Visible = False
  MyXL.Parent.Windows(1).Visible = False
  Set xlSheet = MyXL.Worksheets(1)
  With xlSheet.Cells
    Chislo_a = .Cells(.Rows.Count, 1).End(xlUp).Row
    Chislo_b = .Cells(.Rows.Count, 2).End(xlUp).Row
    Chislo_v = .Cells(.Rows.Count, 3).End(xlUp).Row
  End With
  Print Chislo_a, Chislo_b, Chislo_v
  MyXL.Application.Quit
  Set MyXL = Nothing
End Sub

Если появятся дополнительные советы или комментарии, буду очень благодарен

Решение задачи: «Подсчет заполненных ячеек Excel»

textual
                            Листинг программы 
                        
Function CountNotBlank(rn As Object) As Long
  CountNotBlank = rn.Cells.Count - MyXL.WorksheetFunction.CountBlank(rn)
End Function