I am trying to fill in the word "Blank" across a row array with data
already in it. I want all the cells in teh array to say "blank".

I want to select a cell, then highlight all the data including the
selected cell to the right (i.e. shift/cntrl right arrow). Then I
want to count the number of columns included in the array and assign
that number to a variable.

I am trying this but it doesn't work:

Dim ColumnCount As Integer


Range("DropDownStartCell").Select
Range(Selection, Selection.End(xlToRight)).Select
ColumnCount = ActiveRange.Column.Count

For X = 1 To ColumnCount
Range("DropDownStartCell").Select.Offset(0, X) = "Blank"

Next X


End Sub

Any ideas