Sub InserirLinha()
'Ativa a célula atual ActiveCell.Activate
'Insere uma linha abaixo da célula atual Selection.EntireRow.Insert
End Sub