VBA code to repeat item labels in a column

[Wafee]

Hi, Can you somone help me with this request.

I have data as shown in column A and i need it to be done as in column C for some calculation and once it is done it has be restored as in Column A again. this process needs to be performed in column "A" itself. Consider sheet name as sheet1 and activeworkbook.

It is similar to what is done when we select repeat item lables in a pivot. it has to be done until "Grand total" cell. Thank you in advance.

Book1
	A	B	C
1	Name		Name
2
3
4	Raju		Raju
5			Raju
6			Raju
7			Raju
8			Raju
9			Raju
10	Hari		Hari
11			Hari
12	Ram		Ram
13			Ram
14			Ram
15	Moorthy		Moorthy
16			Moorthy
17			Moorthy
18			Moorthy
19	Grand total
Sheet1

 

[Wafee]

Hi Fluff,

I won't be having formulas in column "A" hence the below code is throwing an error saying thta no cells were found. and the formula column changes every week. so can you help me with a code(that doestn't depend on other columns) that reatains first occurance of values in column "A" in that cells it self.

Range("A:A").SpecialCells(xlFormulas).ClearContents

 

[Fluff]

The 1st code in post#6 puts a formula into col A & then 2nd code removes it, so you will have formulae in col A unless you have removed them.

 

[Wafee]

The 1st code in post#6 puts a formula into col A & then 2nd code removes it, so you will have formulae in col A unless you have removed them.

that helped, thank you Fluff