Formula Macro

[smartguy]

Hello all,

Good day.

I Have excel file in the below format.

Excel 2013/2016
	A	B	C	D	E	F	G
1	Value	QTY	AB	AC	AD	EF	Final Vlaue
2	AB	1	1	2	3	4	1
3	AB	2	2	2	2	1	4
4	AC	3	4	5	6	1	15
5	AB	4	1	2	3	1	4
6	AC	5	1	3	4	4	15
Sheet1

Cell Formulas
Range	Formula
G2	=B2*C2
G3	=B3*C3
G4	=D4*B4
G5	=C5*B5
G6	=D6*B6

I need get the Final value.

If Column A2 = AB then i need multiply "A2" * B2 Row.

Please help me provide VBA Macro.

 

[Fluff]

No need for a macro, you can simply use this formula
=B2*INDEX(C2:F2,MATCH(A2,$C$1:$F$1,0))

 

[smartguy]

I Using Automation. this step alone manual work. Thats the reason i am looking for VBA Code.

 

[Fluff]

How about

Sub smartguy()
   Dim Ary As Variant
   Dim r As Long, c As Long
   
   Ary = Range("A1").CurrentRegion.Value2
   For r = 2 To UBound(Ary)
      For c = 3 To UBound(Ary, 2) - 1
         If Ary(r, 1) = Ary(1, c) Then
            Ary(r, UBound(Ary, 2)) = Ary(r, 2) * Ary(r, c)
         End If
      Next c
   Next r
   Range("A1").Resize(UBound(Ary), UBound(Ary, 2)).Value = Ary
End Sub