Copy Text As Well As Cell Formatting

I'm basically trying to copy the text and formatting (colour fill) from a single cell into all cells I select. So far I managed to get the auto fill to work but the text only copys to the first cell I select of the selection.

Here's the macro I have:

Sub Macro7()
'
' Macro7 Macro
'
' Keyboard Shortcut: Ctrl+f
'
ActiveCell.FormulaR1C1 = "1 Completed"
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub