boa noite,
preciso que ao clicar no botão gravar, os valores que estiverem na listbox sejam gravados na primeira linha em branco de planilhas diferentes: quando estiver na listbox "barril de 30l" preciso que grave na planilha OCULTAR30, quando estiver na listbox "barril de 50l" preciso que grave na planilha OCULTAR50 e quando estiver na listbox "garrafa de 600ml" preciso que grave na planilha OCULTAR2. Segue o código:

 Private Sub btmGravar_Click()
If txtquantidadeestoque.Text <> "" And cmbtipo.Value <> "" And cmbprodutosestoque.Text <> "" Then
    
    For i = 0 To lstboxprodutosestoque.ListCount - 1
    ' Ultimo registro novo
    If lstboxprodutosestoque.List(i, 1) = "GARRAFA 600ML" Then
        ilin = Sheets("ocultar2").Range("A65000").End(xlUp).Row + 1
                        
            Sheets("ocultar2").Cells(ilin, "A").Value = lstboxprodutosestoque.List(i, 1)      ' produto
            
            Sheets("ocultar2").Cells(ilin, "B").Value = lstboxprodutosestoque.List(i, 2) ' quantidade
            
            Sheets("ocultar2").Cells(ilin, "C").Value = lstboxprodutosestoque.List(i, 0) ' tipo de cerveja
            
            
    End If
    If lstboxprodutosestoque.List(i, 1) = "BARRIL 3OL" Then
    ' Ultimo registro novo
        ilin = Sheets("OCULTAR30").Range("A65000").End(xlUp).Row + 1
                        
            Sheets("OCULTAR30").Cells(ilin, "A").Value = lstboxprodutosestoque.List(i, 1)      ' produto
            
            Sheets("OCULTAR30").Cells(ilin, "B").Value = lstboxprodutosestoque.List(i, 2) ' quantidade
            
            Sheets("OCULTAR30").Cells(ilin, "C").Value = lstboxprodutosestoque.List(i, 0) ' tipo de cerveja
            
            
            

    End If
    If lstboxprodutosestoque.List(i, 1) = "BARRIL 5OL" Then
    ' Ultimo registro novo
        ilin = Sheets("OCULTAR50").Range("A65000").End(xlUp).Row + 1
                        
            Sheets("OCULTAR50").Cells(ilin, "A").Value = lstboxprodutosestoque.List(i, 1)      ' produto
            
            Sheets("OCULTAR50").Cells(ilin, "B").Value = lstboxprodutosestoque.List(i, 2) ' quantidade
            
            Sheets("OCULTAR50").Cells(ilin, "C").Value = lstboxprodutosestoque.List(i, 0) ' tipo de cerveja
            
    End If
            
    Next
    
    
    
    MsgBox "Registro gravado!"
    lstboxprodutosestoque.Clear
    cmbtipo = ""
    cmbprodutosestoque = ""
    txtquantidadeestoque = ""

    
    
Else
    MsgBox "Compra não gravada!", vbExclamation
End If

    Sheets("Estoque P. Processo").Cells(6, "D") = ""
    Sheets("Estoque P. Processo").Cells(6, "E") = ""
End Sub