Insert Value if range Not Blank

[billandrew]

Would like to apply the value of the cell in row 2 to all rows below if the adjacent column is <> blank.

This code works, however I have to repeat for the next (possible) several columns.

Any assist would be appreciated.

Initial ex.

dim c as long, rng as long
Set rng = Range("E2", Range("E" & Rows.Count).End(xlUp))    For Each c In rng
    If c <> "" Then
    c.Offset(, 1).Value = Cells(2, 6).Value
    End If
    Next

Next ex

For Each d In rng    If d <> "" Then
    d.Offset(, 2).Value = Cells(2, 7).Value
    End If
    Next

 

[billandrew]

It sure does.

Thank You Mr. Rothstein. This is easily understood as well.

 

[Peter_SSs]

Thank You for the code. Works Perfect.

You're welcome.

Is the code copying each blank cell in the row above it, hence "=R[-1]C"

Yes, so if it happened that, say, row 6 had other data across it, then the blank cells below row 6 would get filled from row 6 whereas blank cells above row 6 would get filled from row 2.

 

[billandrew]

Thank you again. much appreciated..