Hi:

I have a simple issue, and iIknow there is a solution. I have copied a cell value, and I
wish to put it in all the cells in a column that have a some value in them (i.e are not
blank). All cells with values are sequential. I have been trying to work with variables,
but somehow come unstuck. The code I have is as follows:

Range("P1").Select

Irow = ActiveCell.Row

Selection.End(xlDown).Select

Irowd = ActiveCell.Row

Range ("a1").select
activecell().copy
'This is where I try and select a range to paste into and it fails.

Range(Irow, Irowd).Select

'unfortunatley that does not work. I
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Help appreciated.

John Baker