Convert a formula to VBA code

[sofas]

Welcome. I have this formula that I want to convert into code. VBA It is executed starting from cell C6 along the column, and when there is no value in column A, the cell remains empty. Thank you in advance

=INDEX($B$2:$D$6, MATCH(A10,$A$2:$A$6,0), MATCH(B10, $B$1:$D$1, 0))

 

[alansidman]

Use Worksheet.Function and convert the cells to ranges

 

[sofas]

Use Worksheet.Function and convert the cells to ranges

Thank you, because I honestly don't know how to do it. Especially since I'm looking to fetch data along column C

 

[alansidman]

If you are looking for specific code, then provide some sample data as VBA is not generic. 8-10 records and a mocked up solution. Use XL2bb as we cannot manipulate data in a picture. So no pictures. Show all ranges/tables in XL2BB

 

[sofas]

If you are looking for specific code, then provide some sample data as VBA is not generic. 8-10 records and a mocked up solution. Use XL2bb as we cannot manipulate data in a picture. So no pictures. Show all ranges/tables in XL2BB

Sorry.........The file was uploaded to another site because I did not know how to upload files on the forum

sheet1

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[Peter_SSs]

Test this with a copy of your worksheet.

Sub Insert_Formula()
  With Range("C10:C" & Range("A" & Rows.Count).End(xlUp).Row)
    .Formula = "=IFNA(INDEX(B$2:D$6,MATCH(A10,A$2:A$6,0),MATCH(B10,B$1:D$1,0)),"""")"
  End With
End Sub