Excel VBA - Inserir linha em local fixo

[Fabio Nalon Cortez]

Bom dia, 

 

Preciso de ajuda para acertar a macro abaixo.

O objetivo é inserir uma nova linha na "11" copiando as fórmulas da 12.

Também poderia ser na última linha antes do fechamento (total).

 

Sub inserirLinha()
'
' inserirLinha Macro
'

'
    ActiveSheet.Unprotect ("BMMCGC")
    Range("M11").Select
    Rows("13:13").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("12:12").Select
    Selection.AutoFill Destination:=Rows("12:13"), Type:=xlFillDefault
    Rows("12:13").Select
    Range("M11").Select
    ActiveSheet.Protect ("BMMCGC"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
End Sub

Desta forma está entrando na linha 13, quando tento colocar na 11 não faz as cópias corretas.

Seria um plus acertar o range para copiar apenas as fórmulas e não valores, e também o contador (col

 

Abs

Pedido teste_v8.zip