VBA code to autofill

[Aleksandar]

Hi everyone! I have a question. I need help to save time in Excel.
I need to autofill each company name in column D to fill empty space in between different companies. Problem is that there are few hundred different companies and I need to autofill each company name to be listed 7 times since there are 7 months. You can see problem on picture.

 

[p45cal]

Starting with the cell containing XYZ, select all the cells in that column to the bottom of the table. Press F5, Special…, Blanks, OK.
Before doing anything else, press the = key on the keyboard, then the cursor-up arrow once, then hold the Ctrl key while pressing Enter on the keyboard.
Now select all the cells again, Ctrl+c, then Paste-Special, Values in situ.

Or select your cells first, then run this macro:

Sub blah()
Set OrigSelection = Selection
Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
OrigSelection.Value = OrigSelection.Value
End Sub

 

[Aleksandar]

Thank you very mutch. It really helped me.