VBA 100 to a range of cells

[phil133]

Hi. In this macro

Sheets("P_L constant face value").Select 
   Range("G6:G400").Select
    
    For i = 6 To 500 Step 2
    Range("T" & i).Copy
    Range("G" & i).PasteSpecial (xlPasteValues)
    Range("G" & i).Copy
    Range("G" & i + 1).PasteSpecial (xlPasteValues)
    Range("T" & i).Activate
    ActiveSheet.Calculate
    Next i
End Sub

I want to add after Range("G6:G400").Select that G6:G400 to have the value of 100.
Thanks for any help!

 

[Rick Rothstein]

Hi. In this macro

Sheets("P_L constant face value").Select 
   Range("G6:G400").Select
    
    For i = 6 To 500 Step 2
    Range("T" & i).Copy
    Range("G" & i).PasteSpecial (xlPasteValues)
    Range("G" & i).Copy
    Range("G" & i + 1).PasteSpecial (xlPasteValues)
    Range("T" & i).Activate
    ActiveSheet.Calculate
    Next i
End Sub

I want to add after Range("G6:G400").Select that G6:G400 to have the value of 100.

Your question seems to indicate you want this...

Range("G6:G400").Value = 100

If that is not correct, then post some examples of what you have and what you want afterwards.

 

[phil133]

That was what I wanted! Thanks!