Macro que copia los datos de una tabla a una celda una por una y ejecuta otra macro

Necesito saber como quedaría esta macro si las fichas que busco copiar están en una tabla en la misma hoja que la celda (N10) donde debo colocar ficha por ficha y ejecutar otra macro.

Sub Colocar_Fichas()
'Por.Dante Amor
    Set h1 = Sheets("REF FICHAS")
    Set h2 = Sheets("RIG ANUAL")
    For j = 1 To h1.Cells(1, Columns.Count).End(xlToLeft).Column Step 2
        For i = 2 To h1.Cells(Rows.Count, j).End(xlUp).Row
            ficha = h1.Cells(i, j).Value
            h2.Range("N10") = ficha
            '
            'en esta línea poner el nombre de tu macro
            Call Enviar_Correo
            '
            '
        Next
    Next
End Sub