Tudo bem?
Espero que sim!

Bom, seguinte tô Tentando preencher um ListBox Com os dados de uma planilha, mas nem tudo é tão simples eu só quero levar as linhas que atendem a determinada condição e ele tem que começar a pegar as colunas a partir da G. Revirei a NET e finalmente encontrei aqui no Fórum mesmo um código de autoria do nosso amigo Mauro Coutinho que consegui adaptar. Tá 99 % faz exatamente o que eu quero o único problema é que quando a condição if é falsa ele inseri uma linha em branco no ListBox, eu creio que o problema é alguma variável incrementada fora do if, mas já tentei fazer de tudo e nada. O Jeito é pedir ajuda aos universitários.

Segue o código:

Private Sub UserForm_Initialize()

    Dim col As Collection, a() As String, rng As Range, n As Long, i As Long
    
    Dim Ultimalinha As Long
    Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row
        
        grid_c100entrada.ColumnCount = 27
       
         
         Set Intv = Worksheets("c100").Range("a1:A" & Ultimalinha)
         
         For Each rng In Intv
            
            Me.grid_c100entrada.Clear
            
          n = n + 1: ReDim Preserve a(7 To 33, 1 To n)
            
          If Worksheets("c100").Range("f" & n + 1).Value = 0 Then 'IND_OPER: 0-ENTRADA, 1-SAÍDA
                                                
                For x = 7 To 33
                    a(x, n) = rng.Offset(, x - 1).Value
                Next x
         
             End If
       'Preenche o Listbox
          Next rng
    
    
If n > 0 Then Me.grid_c100entrada.Column = a
    
    '
End Sub