Sub AddText()
Dim rRng As Range, rCl As Range
On Error Resume Next
Set rRng = ActiveSheet.Columns(5).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rRng Is Nothing Then
For Each rCl In rRng.Cells
rCl.Offset(, 1).Value = "Quantities chosen"
Next
End If
End Sub
Sub AutoPopulate()
Dim LR As Integer
LR = Range("E1048576").End(xlUp).Row
For Each Cell In Range("E2:E" & LR)
If Cell.Value <> "" Then Cell.Offset(, 1).Value = "Quantities chosen"
Next Cell
End Sub
Select the header row of the data and apply an AutoFilter. Using the dropdown on header of column E deselect the "Blanks" option, this will then leave the non-blanks visible. Enter the required value in the first visible row of column F and double click the bottom right corner of that cell, this will do a Fill down to the last visible row.
Remove the Autofilter and all rows will then be visible; the fill down will have affected only the visible rows.