Quick enhancement to allow it to work over multiple columns:
Sub Fill_Down_Without_Formatting()
'
' Fill_Down_Without_Formatting Macro
'
' Keyboard Shortcut: Ctrl+d
'
    NrColumns = Selection.Columns.Count
    Selection.Range(Cells(1, 1), Cells(1, NrColumns)).Copy
    Selection.PasteSpecial Paste:=xlPasteFormulas
    
End Sub