INDEX and MATCH formula in a macro

The formula I'm working on is a INDEX and MATCH formula with two variables and operates from data across to worksheets in the same workbook

First question: the range is wrong and I don't know what to do to correct it.

marco index & match.jpg


Second question, after I fix the range, how do I make this formula work across multiple columns and rows in the sheet?

Here's an example of the formula in Excel. I need this formula to operate in columns B-P and rows 2-60.

formula in excel.jpg

The reference cells need to change as the formula moves from left to right and top to bottom

Hello, New_To_Macros. It is not clear what your goal is.

Mmm... Could it be that you want to achieve the following?...

Sin t?tulo 1.gif

You could do something like the following:

PHP Code: 

Sub Macro8()
Dim a, Q&, i&, j%, R&
a = Range("'Zebras'!A1").CurrentRegion
a = Application.Transpose(a): Q = UBound(a): R = 1
For i = 2 To Q Step 2
  R = 1 + R: a(R, 1) = a(i, 1)
  For j = 2 To UBound(a, 2): a(R, j) = a(1 + i, j): Next
Next
With Range("'Use This'!A1")
  .CurrentRegion.ClearContents
  .Resize(R, UBound(a, 2)) = a
  .CurrentRegion.Columns.AutoFit
End With
End Sub 


I show you an implementation in the sheet 'Use this':