Inserir linha automaticamente com cópia do Formato

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Worksheet_Change(ByVal Target As Range)
'
'Autor: Eneias dos Santos Pedroso
'
If Target.Column = 7 Then 'Coluna 7 - "G", mude...
Target.EntireRow.Select
Selection.Copy
Target.EntireRow.Offset(1).Select
Selection.Insert Shift:=xlDown
Cells(Target.Row, Target.Column).Select
Application.CutCopyMode = False
End If
End Sub

----------

Para a seleção da primeira célula na próxima linha:
______________________

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Target.EntireRow.Select
Selection.Copy
Target.EntireRow.Offset(1).Select
Selection.Insert Shift:=xlDown
Cells(Target.Row + 1, 1).Select
Application.CutCopyMode = False
End If
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !

Classificação Crescente Simultânea

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Worksheet_Change(ByVal Target As Range)
'
'Autor: Eneias dos Santos Pedroso
'
If Target.Column = 1 Then 'Mude aqui a coluna
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !