Assigning values from source cells

[Asif]

I'm trying to assign value from Source cells into the destionation cell using
following statements.

dCell.Value = sCell.Value

Is it possible to assign value in destination cells without using multiple
copy-paste?

 

[JP]

If you create a Range object you can assign a string value to it
directly, and all the cells in the range will take on that value.

Dim rng as Excel.Range
Dim myval As String
Set rng = Range("A1:A10")
myval = "Do it!"
rng.Value = myval


HTH,
JP