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]

The value in F2 is copying to all cells in columns 6 to 14.

 

[My Aswer Is This]

Try this:

Sub MySub()
'Modified 6/13/18 10:10 PM EDT
Application.ScreenUpdating = False
Dim i As Long
Dim c As Range
Dim Lastrow As Long
For i = 5 To 14
Lastrow = Cells(Rows.Count, i).End(xlUp).Row
    For Each c In Range(Cells(3, i), Cells(Lastrow, i))
        If c <> "" Then
            c.Offset(, 1).Value = Cells(2, i).Value
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

You never answered back. Did this work for you?

 

[billandrew]

No sir.

 

[My Aswer Is This]

If you still need more help on this you will have to explain what is did wrong.
Saying it did not work does not help me.
But maybe someone else here at Mr. Excel will be able to help.

 

[billandrew]

Here is a Sample of what I am trying to accomplish

Before

ID	S Value	Code	Import Value	Export Value	Seq	Exit	Offer	Exit Out	FC
1	1	A	44	E111	3	88	L	E99	S101
2
3
4
5
6

<tbody>
</tbody>

After

D	S Value	Code	Import Value	Export Value	Seq	Exit	Offer	Exit Out	FC
1	1	A	44	E111	3	88	L	E99	S101
2	1	A	44	E111	3	88	L	E99	S101
3	1	A	44	E111	3	88	L	E99	S101
4	1	A	44	E111	3	88	L	E99	S101
5	1	A	44	E111	3	88	L	E99	S101
6	1	A	44	E111	3	88	L	E99

<tbody>
</tbody>

 

[My Aswer Is This]

Sorry. I'm still not able to understand what you want.

 

[Peter_SSs]

Try this in a copy of your workbook

Sub Fill_Values()
  With Range("F3:N" & Range("E" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
End Sub

 

[billandrew]

Have been out of town. Thank You for the code. Works Perfect.

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

 

[Rick Rothstein]

Except for your Header row and Row 2, the cells in Columns F:N are all blank, correct? If so, then this should work...

[table="width: 500"]
[tr]
	[td]Sub FillTableFromRow2()
  Range("F3:N" & Cells(Rows.Count, "E").End(xlUp).Row).Value = Range("F2:N2").Value
End Sub[/td]
[/tr]
[/table]