Aggiungere riga mantenendo formattazione e formule

[Frons]

Ho un problema con il seguente codice che volevo associare ad un pulsante, per fargli aggiungere una riga vuota sotto ad una determinata riga mantenendo sia la formattazione che le eventuali formule presenti in un determinato range di celle (da B19 A E19).

Sub aggiungiRiga()

        ActiveSheet.Range("B19:E19").End(xlUp).EntireRow.Copy
        ActiveSheet.Range("B19:E19").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormats
        ActiveSheet.Range("B19:E19").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormulas
        Application.CutCopyMode = False


End Sub

Però invece di fare ciò che vorrei, va a copiare la riga 18... perché? Ma soprattutto, come sistemare il codice affinché faccia quello che serve a me