Excel - Fill range with vale 1

[micang]

Excel 2007

Hi All,

I have a range that I have defined and I would like to populate all the cells in this range with a value (in this case HC).

The code below puts in the value in the one cell, which I understand, but how can I get it to fill all the cells in the range with the value?

Dim ads As String  
Dim lastrow as String
lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

ad = "J2" & ":" & "j" & lastrow
ads = "HC"
    Range(ad).Select
    ActiveCell.Value = ads

Any guidance in the right direction will be appreciated.

Michael

 

[combo]

Ramge(ad)=ads
will do it in one go.

combo

 

[micang]

Many thanks combo.

I was using Range(ad).Value = ads

Appreciate it.

Michael