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
Bookmarks