Copier et coller une ligne automatiquement

Bonjour,
J'ai trouvé ceci hier sur le net, mais je ne sais pas quoi faire avec.

'Un petit code qui, lors d'une saisie colonne A, en première ligne vide
'ajoute systématiquement une ligne 'supplémentaire de saisie...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Rows(DernLig + 1).Copy Range("A" & DernLig + 2)
Else
Rows(DernLig + 2).Delete
End If
End Sub

Ce que j'aimerai pouvoir obtenir, c'est que lorsque j'active l'avant dernière cellule de la colonne A, la ligne se copie automatiquement et se colle en dessous en reprenant le format des cellules ainsi que des formules et que le curseur de saisie se repositionne à la suite des saisies en colonne A.
Je ne sais pas si je me fais bien comprendre.
Je vous remercie de bien vouloir me dire si cela est envisageable et comment je dois procéder, car je ne comprends rien à ce que j'ai trouvé ci-dessus.
Je vous en remercie.