How To Fill Blanks

[jamiguel77]

Invoice	Serial	Pediment
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
110	C
110	C
110	C
110	C
110	C
111	B
111	B
112	G	CCC
112	G	CCC
112	G	CCC
112	G
112	G
112	G
112	G

the result spected is:

Invoice	Serial	Pediment
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
110	C	AAA
111	B
111	B
112	G	CCC
112	G	CCC
112	G	CCC
112	G	CCC
112	G	CCC
112	G	CCC
112	G	CCC

note: row 11 and 12
not filled because in column C is empty

thanks

 

[Peter_SSs]

I have assumed that you are looking for a vba approach and would not use the code unless there were blank cells in column C.
Test with a copy of your worksheet.

Sub Fill_Empty()
  With Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=IF(AND(RC[-1]=R[-1]C[-1],R[-1]C<>""""),R[-1]C,"""")"
    .Value = .Value
  End With
End Sub