Visual Basic Exclusão Limitada de linhas em VBA

[J. Videira]

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!

 

[J. Videira]

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
 

[Erik Wesley]

Fiquei meio perdido, pode compartilhar um modelo resumido da sua planilha?

[J. Videira]

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