Pelo seu codigo, a planilha é desprotegida e protegida novamente sem senha;
altere confore abaixo
Sub Macro1()
'
' Macro1 Macro
'

'
Range("G5").Select
ActiveSheet.Unprotect Password:="teste"
Range("G5").Select
Selection.EntireRow.Insert
Range("A4:G4").Select
Selection.Copy
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="teste"
End Sub

Maravilha, Reinaldo!

Funcionou perfeitamente,

Muito Obrigado!