VBA обновляет значение ячейки на основе элемента соответствия

Question

Я пытаюсь обновить значение ячейки на основе соответствующего месяца. Поэтому я выбираю текущий месяц в одной области и сопоставляю его с диапазоном ячеек (A: K). Если совпадение найдено, я хочу, чтобы столбец N, O, P изменил ссылку на ячейку = A2, следующий месяц = ​​B2 и так далее.

Соответствующий месяц работает, но обновление значений ячеек - нет, и я не могу понять это.

Sub Monthly_Updates
Dim CurMonth As String
Dim k As Integer
Worksheet("Monthly Update").Select
    'I label current month in the spreadsheet
    CurMonth = Worksheets("Data").Range("AA1").Value
    'then I use
    k=Application.Match(CurMonth, ActiveSheet.Range("A1:K1"),0)
End Sub

Мне нужно обновить данные электронной таблицы до столбца текущего месяца