Как сохранить копию с фиксированным количеством столбцов после просмотра веб-страниц с помощью VBA

Question

У меня есть рабочий лист, в котором я проверяю цены на продукты несколько раз в день с помощью поиска в Интернете.

Когда я заканчиваю проход, я копирую эти цены на несколько столбцов справа от столбца "T".

Я использую следующее:

Dim lastColumn As Long
lastColumn = wks.Cells(2, wks.Columns.Count).End(xlToLeft).Column
lastColumn = Application.Max(lastColumn + 1, wks.Columns("T").Column)

wks.Activate

With wks.Range(Cells(2, 5), Cells(20, 5)) ' This is the range I need to copy in my case
    Dim columnOffset As Long
    columnOffset = lastColumn - .Columns(1).Column

    If wks.Cells(1, lastColumn).Value = "" Then
    wks.Cells(1, lastColumn).Value = Format(Now, "mm-dd-yyyy hh:mm:ss")
    End If

.Copy
    .Offset(0, columnOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
End With

Моя проблемав том, что через 4-5 дней я получаю 20-25 столбцов и более.

Итак Как сохранить только 4 или 5 последних столбцов с ценами на продукты?