VBA Fill the Blank

[ziad alsayed]

dear all

with the below data , i need to fill the last column, for example from the word VAT and all the above blank cells should be filled with the same word,from the word "NO VAT" and all the above blank cells and so on

appreciate any help

Excel Workbook
	A	B	C	D	E	F
1	Code	Acc#	Inv. Num	Description	Net Amount	Code
2	9999-1002-1	4111110822	105357	Transportation	300
3	9999-1006-1	4111110198	105359	Commissioning	7500
4	9999-1005-1	4111102300	105369	ONE OFF PO FOR THE HIRING OF P2000KVA	250
5	9999-1002-1	4111110818	105370	Transportation	658
6	9999-1005-1	4111601405	608526	RENT OF 165KVA GENSET FOR 7 DAYS	0
7				TOTAL OF INVOICE ( VAT )	8708	VAT
8	9999-1002-1	4111301350	307229	Transportation	987
9	9999-1002-1	4111301390	307322	Transportation of Genset	180
10	9999-1002-1	4111301350	308257	TRANSPORTATION OF 200KVA TO KANO	3000
11				TOTAL OF INVOICE ( NO VAT )	4167	NO VAT
12	6101-0160-3P	4191103318	105362	Oil Filter (1306)	6867
13	6101-0262-3P	4191103318	105362	Fuel Filter (1306)	4515
14	6101-1010-3P	4191103318	105362	Water Filter (1306)	5670
15	6502-0034-3	4191103318	105362	Oil CI4 15W40 25Ltr. (1Ltr.)	17325
16	9999-1003-1	4191103318	105362	Labour Charges	17123
17	6101-0160-3P	4191103318	105363	Oil Filter (1306)	3622
18				TOTAL OF INVOICE ( Maint. Contract )	55122	Maint.Contract
19	9999-1002-1	4111103560	105365	Transportation	11541.7
20	9999-1002-1	4111103632	105366	Transportation	6000.04
21	9999-1001-1	4111110522	105367	INSPECTION	7500
22	9999-1001-1	4111102639	105427	INSPECTION	7500
23	9999-1001-1	4111110522	105496	INSPECTION	7500
24	9999-1001-1	4111605458	608527	INSPECTION FEE	250
25				TOTAL OF INVOICE ( On-Call/Repairs )	40291.74	On-Call/repairs
Sheet1 (2)

Excel 2010

 

[VoG]

Hi. Try

Sub AFill()
Dim LR As Long
LR = Range("F" & Rows.Count).End(xlUp).Row
With Range("F2:F" & LR - 1)
    With .SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=R[1]C"
    End With
    .Value = .Value
End With
End Sub

 

[ziad alsayed]

thanks , this working perfectly