Search for non-blank cells in Column E and if found enter a certain term in Column F on the same row.

Can be easily achieved without VBA.

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.

Perhaps this

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

Select allOpen in new window

@Roy - Somewhat confused, wouldn't that put value against the blank rows???? Or is that taken care of by the double negative on line 6?

Requirement is to populate against non-blank rows.

Alternative if really want VBA

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 allOpen in new window

dear both, thank you very much for the overwhelming support. Will test the solutions tomorrow. Thank you very much indeed

Great job from both of you. Different approaches, both work just fine. I really highly appreciate your professional support. It couldn't be better.

REgards, Andreas

Pleased to help

Glad to help as always.