Fill Data - Row Based

[Blessy Clara]

Hi I have an excel sheet with two columns

ABC Org	Assist Prod-Pers Care/Safety
	Disability Safety
Whole Family Health	Interpret/Translate
	Assist Prod-Pers Care/Safety
	Personal Mobility Equipment
	Early Childhood Supports
Visability Ltd <tbody> </tbody>	Service1
	Service2

<tbody>
</tbody>

Actually the Blank Rows in Org Column Must be filled as this - Coz the Services are given as separate Row, it actually belongs to the Org occurring first and the next org and its services ..and so on

ABC Org	Assist Prod-Pers Care/Safety
ABC Org	Disability Safety
Whole Family Health	Interpret/Translate
Whole Family Health	Assist Prod-Pers Care/Safety
Whole Family Health	Personal Mobility Equipment
Whole Family Health	Early Childhood Supports
Visability Ltd	Service1
Visability Ltd	Service2

<tbody>
</tbody>

Thank you

 

[Blessy Clara]

Hi sandy666 it Version 14.0 MS Office 2010

 

[sandy666]

so you'll need Power Query add-in from MS site (for free )

 

[sandy666]

here is Power Query add-in, choose proper version

 

[mohadin]

You are very well come
Thank you for the feedback
Be happy

 

[Fluff]

There were a couple of typo's in the code

Sub Blessy()
    With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
        .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
        .Value = .Value
    End With
End Sub