Boa Noite!

Srs, tenho o código abaixo, trata-se de uma exclusão de cadastro, porém além disto gostaria que esta linha fosse para a plan2 e a medida que o usuário fosse excluindo mais cadastros esta nova linha excluída, também fosse para o plan2 na próxima linha.

Dim lLinha As Long
    Dim currentFind As Range
    Dim lPosicao As String
    
    iTotalLinhas = Sheets("VOLUNTARIOS").Cells(Rows.Count, 1).End(xlUp).Row

    If IsNumeric(lblCod.Caption) = True Then
        Set currentFind = Worksheets("VOLUNTARIOS").Range("A:A").Find(lblCod.Caption, , _
            Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
            Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

        lLinha = currentFind.Row
        
        
        
   
        currentFind.EntireRow.Delete
     
       
        If lLinha <= iTotalLinhas And IsNumeric(Worksheets("VOLUNTARIOS").Cells(lLinha - 1, 1)) Then
            lsLocalizaRegistroVOLUNTARIOS (CLng(Worksheets("VOLUNTARIOS").Cells(lLinha - 1, 1)))
        End If
        
        If lLinha = 2 And iTotalLinhas > 2 Then
            lsLocalizaRegistroVOLUNTARIOS (CLng(Worksheets("VOLUNTARIOS").Cells(lLinha + 1, 1)))
        Else
            lsLimparVOLUNTARIOS
        End If
        
        
    End If

grato!