[Excel] Aggiungere riga mantenendo il formato

[FutureP90]

Ciao a tutti, ho cercato nel forum ed ho trovato questo thread che espone un problema simile al mio
viewtopic.php?t=97191

Questa è quella che mi interessa

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A2:A1000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Application.EnableEvents = False
    If Target <> "" Then
    Riga = Target.Row + 1
    Rows(Riga).Insert Shift:=xlDown
    End If
End If
    Application.EnableEvents = True
End Sub


Le differenze sono che:
Non deve essere aggiunta una riga vuota, ma una riga con formato identico a quello della cella in cui ho scritto una lettera dentro



Mi spiego meglio, scrivendo qualcosa in riga 10 si deve creare una riga 11 vuota, mantenendo lo stesso formato (colore bordi e unione celle)



Ps. Dove dovrei scrivere questa macro per fare in modo che funzioni solo nel foglio di lavoro 4 "Worksheet4" ?

[FutureP90]

In alternativa potrei anche usare una macro simile a questa, penso sia più facile, potrei metterla in un immagine da cliccare

Codice: Seleziona tutto

Rows("5:5").Insert Shift:=xlDown

Ma dovrebbe aggiungere in riga A2 una riga con stesso formato del resto delle righe della tabella (colore, bordi e unione celle)
Sapete come posso fare?