Macro: rij toevoegen aan einde tabel met behoud van opmaak

[Mirzotti]

Beste helpmij-ers,

Bijgevoegd een tabel MET opmaak. Wat ik graag wil is dat met een knop een extra rij toegevoegd wordt onderaan de tabel met behoud van de opmaak.
Probleem is als de laatste rij gevuld is en je wilt een extra rij handmatig toevoegen wordt er GEEN opmaak meegenomen. Als je een rij hoger pakt en voegt een nieuwe rij in dan wordt de ingevoegde rij de voorlaatste rij MET opmaak maar niet de laatste rij en het moet de LAATSTE rij MET opmaak zijn.
Kan dit met een macro wel?

HELP!!!

GRZZZZZZZZZ,

Mirza

 

[snb]

Sub test()
  With Cells(Rows.Count, 5).End(xlUp)
    .EntireRow.Copy
    .Offset(1).EntireRow.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
  End With
End Sub

Het kan ook met de hand: copy / speciaal plakken..../opmaak