ser2708

Sub september()
Dim rCell_1 As Range   'первый столбец в первой таблице поиска
Dim rCell_2 As Range    'общий с первым столбец во второй таблице
Dim rCell_3 As Range    'искомый столбец для сопоставления во второй таблице
Dim rCell_4 As Range     'столбец куда нужно вставить результат

Dim intCountWorkboks As Integer 'количество открытых рабочих книг

intCountWorkboks = Application.Workbooks.Count
Set rCell_1 = giveMeRange("Выделите ячейку с заголовком первой таблиц столбца для сопоставления")

ser2708

$(function(){
    var canvas = document.getElementById('canvas');
    ctx = canvas.getContext('2d');
    ctx.rotate(.1);
    ctx.fillRect(100,30,200,200);
});