VBA: In a Column Fill empty Cells with Entry from Pop Up Window

[LNG2013]

Hello,
I need assistance with a little bit of VBA code.
The code needs to:

• Identify all the blank cells in Column D, It is the last column.
• Display a pop up dialog / Userform
• A response is entered by the user in the dialog.
• Whatever is entered into that dialog will then fill ALL of the blank cells with the response.

Example of Data Set:

A	B	C	D
Date	Food	Price	Discount
1/15/2019	Apple	1.00
1/15/2019	Orange	1.00	0
1/16/2019	Peach	.75
1/16/2019	Banana	2.00	.10
1/16/2019	Cereal	3.00
1/16/2019	Pop Tarts	2.50	0

<tbody>
</tbody>

Dialog : Enter the Discount
User Enters: .25
Result:

A	B	C	D
Date	Food	Price	Discount
1/15/2019	Apple	1.00	.25
1/15/2019	Orange	1.00	0
1/16/2019	Peach	.75	.25
1/16/2019	Banana	2.00	.10
1/16/2019	Cereal	3.00	.25
1/16/2019	Pop Tarts	2.50	0

<tbody>
</tbody>

 

[mikerickson]

Try

On Error Resume Next
Range("D:D").SpecialCells(xlCellTypeBlanks).Value = Application.InputBox("fill with what", Type:=2)
On Error Goto 0

 

[LNG2013]

Thank you that works Mike!
Small Snafu - In the example above their are 6 rows, ideally I would want it to stop after the last Row in Column A, any thoughts?
Currently it keeps repeating in Column D into infinity past the last value in the Row for Column A.

 

[LNG2013]

Try

On Error Resume Next
Range("D:D").SpecialCells(xlCellTypeBlanks).Value = Application.InputBox("fill with what", Type:=2)
On Error Goto 0

Thank you that works Mike!
Small Snafu - In the example above their are 6 rows, ideally I would want it to stop after the last Row in Column A, any thoughts?
Currently it keeps repeating in Column D into infinity past the last value in the Row for Column A.