J. Videira

Estou mandando uma imagem da planilha, vou tentar anexar o arquivo do excel e mando

consegui melhorar um pouco o codigo de Apagar linha a outra questa ainda nao consegui resolver , Sub Apagarultimalinha() ' ' Macro4 Macro 'apaga a ultima linha inserida ' Range("A9:A10").Select Selection.End(xlDown).Select If Range("a15") <> "" Then Selection.End(xlDown).Select Selection.End(xlUp).Select lin = ActiveCell.Row Rows(lin).Select Selection.Delete Shift:=xlUp Range("A14").Select MsgBox (" A Ultima Equipe foi excluida") Else MsgBox ("Deve ter ao menos uma equipe ") End If End Sub

Boa tarde pessoal, sou novo no aqui mas acompanho o Clube do Hardware a algum tempo! Quanto a minha pergunta esclareço que não localizei o que preciso! Sou iniciante em VBA e estou montando uma planilha, cheguei na seguinte situação: 1º preciso otimizar meu Código na primeira Macro "INSERIREQUIPE" segue abaixo o codigo Sub INSERIREQUIPE() ' ' INSERIREQUIPE Macro ' Copia a ("A11:H14") e insere abaixo ' Range("A11:H14").Select Selection.Copy Range("A11").Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False MsgBox (" Altere os Dados da Nova Equipe") End Sub Obs. Na Planilha as celulas A11:A14 estão mescladas, e com o codigo "Selection.End(xlDown).Select" é limitado a quantidade de equipes que posso inserir, quero otimizar para poder inserir quantas equipes eu quiser. Questão 2. o próximo código seria pra apagar somente o que foi inserido mas ele vai apagando tudo inclusive o intervalo " A11:H14", bem como quero otimiza-lo também! segue o código Sub Apagarultimalinha() ' ' Macro4 Macro 'apaga a ultima linha inserida ' Range("A9:A10").Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlUp).Select lin = ActiveCell.Row Rows(lin).Select Selection.Delete Shift:=xlUp Range("A14").Select MsgBox (" A Ultima Equipe foi excluida") End Sub Desde já agradeço o apoio de todos, espero ter me expressado bem!