Copy one Cell into multiple Cells - VBA

[KNKN9]

Hi,

I have the code

 Dim rng As RangeSet rng = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Range("B3").Copy
Sheets(1).Activate
Sheets(1).Range(rng.Address, Cells(Rows.Count, "E").End(xlUp).Offset(0, -3)).PasteSpecial xlPasteValues

which should copy one cell value into the next empty cell in column B upto the last date in col E. However, this does not always work !


Thanks for help in advanced