Fala João, td bem?

Fiz uma planilha modelo baseada em suas dúvidas. Baixe ela e veja se te ajuda ok?

Qualquer coisa, poste sua planilha aqui que adaptamos a rotina para ela.

[]s

João, segue abaixo o código :

Sub encerrarProjeto()
    Dim linhaAtual As Integer
        Sheets("Ativos").Activate
        linhaAtual = ActiveCell.Row 'id da linha selecionada
            If MsgBox("Confirma o encerramento do projeto selecionado?", vbQuestion + vbYesNo) = vbYes Then 'se a resposta a pergunta for sim
                Cells(ActiveCell.Row, "E").Value = "Encerrado" ' muda o status do item para encerrado
                Range("A" & ActiveCell.Row).Select ' seleciona a coluna A da linha ativa
                Range(Selection, Selection.End(xlToRight)).Select ' estende a seleção ate a ultima coluna
                Selection.Copy ' copia os dados
                Sheets("Encerrados").Activate ' seleciona a planilha de encerrados
                    Dim linhaLimpa As Integer
                    linhaLimpa = ActiveSheet.UsedRange.Rows.Count + 1 'conta as linhas que contem valores e soma +1
                        Cells(linhaLimpa, "A").Select 'seleciona a linha em branco
                        ActiveSheet.Paste ' cola as informações
                        Application.CutCopyMode = xlCopy ' cancela o modo copiar e colar do excel
                        Range("A1").Select 'seleciona a primeira linhada planilha
                        Sheets("Ativos").Activate ' seleciona a planilha de ativos
                        ActiveCell.EntireRow.Delete ' deleta a linha inteira
                        Range("A1").Select ' seleciona a primeira linha da planilha
            End If ' fim do laço
End Sub

[]s

Olá Saulo.
Muito obrigado pela sua ajuda.
No entanto, não funcionou adequadamente. Talvez eu não tenha feitos os ajustes corretamente.

Eu inclui um novo módulo com o código que você forneceu, mas ao executar a macro ela leva apenas a primeira célula da seleção. O comando de apagar a origem está correto.

Coloquei em anexo a minha planilha.
Na aba "Em fornecimento", eu quero selecionar o nome do projeto e depois clicar no botão "ENTE". Ao fazer isso, a macro deve selecionar toda a linha onde está o nome do projeto e levá-la para a aba "ENTE" (encerrados).

Desde já agradeço muito pelo apoio.

JOÃO CARLOS

João, td bem?

Dei uma analisada na sua planilha e adaptei o código, que, agora funcionou perfeitamente. Qualquer dúvida, pode chamar ok?

Segue abaixo, novo código, onde é só adicionar um novo módulo e colá-lo nele.

Sub encerrarProjeto()
    Dim linhaAtual As Integer
        Sheets("EM FORNECIMENTO").Activate
        linhaAtual = ActiveCell.Row 'id da linha selecionada
            If MsgBox("Confirma o encerramento do projeto selecionado?", vbQuestion + vbYesNo) = vbYes Then 'se a resposta a pergunta for sim
                Range("B" & ActiveCell.Row).Select ' seleciona a coluna A da linha ativa
                Range(Selection, Selection.End(xlToRight)).Select ' estende a seleção ate a ultima coluna
                Selection.Copy ' copia os dados
                Sheets("ENTE").Activate ' seleciona a planilha de encerrados
                    Dim i As Integer
                    Dim linhaLimpa As Integer
                        For i = 4 To ActiveSheet.UsedRange.Rows.Count + 1
                            Cells(i, "B").Select
                            If Cells(i, "B") = "" Then
                                linhaLimpa = i 'conta as linhas que contem valores e soma +1
                                Exit For
                            End If
                        Next i
                        Cells(linhaLimpa, "B").Select 'seleciona a linha em branco
                        ActiveSheet.Paste ' cola as informações
                        Application.CutCopyMode = xlCopy ' cancela o modo copiar e colar do excel
                        Range("A1").Select 'seleciona a primeira linhada planilha
                        Sheets("EM FORNECIMENTO").Activate ' seleciona a planilha de ativos
                        ActiveCell.EntireRow.Delete ' deleta a linha inteira
                        Range("A1").Select ' seleciona a primeira linha da planilha
                        linhaAtual=0
                        i=0
                        linhaLimpa=0
            End If ' fim do laço
End Sub

[]s

Muito obrigado.
Funcionou perfeitamente!!!
[]s