Index Match 2-way conversion to VBA code

[wytautas]

Hello,

I am trying convert index match formula to VBA code and fill 47 cells with it.
Original formula =INDEX(Copy_Match!$B$4:$Y$34;MATCH(P!A557;Copy_Match!$A$4:$A$34;0);MATCH(P!C557;Copy_Match!$B$3:$Y$3;0))

Current code:
Range(ActiveCell, ActiveCell.Offset(47, 0)).Value =
Application.WorksheetFunction.Index(Sheets("Copy_Match").Range("$B$4:$Y$34"),
Application.WorksheetFunction.Match(1, Sheets("Copy_Match").Range("$A$4:$A$34"), 0),
Application.WorksheetFunction.Match(1, Sheets("Copy_Match").Range("$B$3:$Y$3"), 0), 1)

There is error in code, but unable to find it and never converted standart formula.
Maybe someone see mistake?

 

[theBardd]

Have you just missed the line continuations?

 

[steve the fish]

Do you know you can record putting a formula in a cell with the macro recorder? Why not try that?

 

[wytautas]

Do you know you can record putting a formula in a cell with the macro recorder? Why not try that?

Macro code identifies different cell by current date and don't know how to write formula wich would not be static. So trying with VBA to fill it.

 

[wytautas]

Write for simplier code view in diffrent lines.