Copier la formule jusq'en bas deux fois dans la meme macro

Bonjour,

Que dois-je inscrire pour que ma formule se fasse jusqu'en bas une nouvelle fois dans la meme macro? Qu'est-ce qui remplace le double-clique que l'on fait manuellement dans une macro?

Range("P2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'Matrice Catégorie'!C[-14]:C[-13],2,FALSE)"
Range("P2").Select
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("P2").AutoFill Destination:=Range("P2:P" & DernLigne)

Je voudrais faire de meme sur la colonne O mais je ne peux inscrire de nouveau Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("P2").AutoFill Destination:=Range("P2:P" & DernLigne)
dans la meme macro

Merci beaucoup de votre aide