Método Set dando erro

[lucasavilez]

Olá amigos, preciso de uma ajuda de vocês!

 

Eu tenho um banco de dados (tabela básica que inputa entrada de uma outra tabela de cadastro) criado em uma planilha do excel. Em uma outra aba, através de uma lista de validador de dados, a pessoa escolhe um valor e o vba consulta no banco de dados aquele cadastro e informa ao usuário.

 

Problema:

Na parte da consulta parece estar funcional porém, tem uma linha que ora funciona ora não (sem fazer nenhum tipo de alteração, parece coisa de gnomos loucos.)

 

Alguém tem uma luz do porque dá erro? E porque dá erro só as vezes? 

Public Sub Consulta()
    Dim n, sNulos As Integer, rng2 As Range
    
    
       
       Application.ScreenUpdating = False
        n = KeyCells.Value
        Worksheets("BD_ToDo").Select
        ActiveSheet.ListObjects("bd_todo_tabela").Range.AutoFilter Field:=1, _
        Criteria1:=n
        
            'Verificar se está vazio
                    Set rng2 = ActiveSheet.AutoFilter.Range  (########### ESTA LINHA QUE DÁ ERRO AS VEZES ##########)
    
                    sNulos = rng2.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
                    If sNulos = 0 Then
                   
                    
                    MsgBox "Nenhuma atividade encontrada"
                    
                     'KeyCells.Value = ""
                    Worksheets("BD_ToDo").ListObjects("bd_todo_tabela").Range.AutoFilter Field:=1
                                
                Else
                'MsgBox "Teste"
        ActiveSheet.AutoFilter.Range.Offset(1, 1).Copy
        'Range("bd_todo_tabela").Select
        'Selection.SpecialCells(xlCellTypeVisible).Select
        'Selection.Copy
    
   Worksheets("ToDo").Select
    Range("TODO_ENTRADA3").Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
  
     End If
    Worksheets("BD_ToDo").ListObjects("bd_todo_tabela").Range.AutoFilter Field:=1
    Worksheets("ToDo").Select
    Range("K5").Select
   
Application.ScreenUpdating = True
     
End Sub