Copy 2 last columns and past n times

[jocker_boy]

Hello,

I found this code that copy last column and paste n times according to cell value.
How can i adapt to copy the last two columns and also past the same way?

And instead of reference the sheet name, is it possible to change to active sheet?

Thanks,
Gonçalo

Sub YearsNumberReduction()

    Dim LastCol As Long
    Dim DelCnt As Integer
    DelCnt = Sheets("Panel").Range("E19").Value
    Dim copyCol As Range
    Dim DestRange As Range
    Dim lastRow As Long

    With ThisWorkbook.Sheets("Current")

        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

        Set copyCol = .Range(.Cells(1, LastCol), .Cells(lastRow, LastCol))

        Set DestRange = .Range(.Cells(1, LastCol), .Cells(lastRow, LastCol + DelCnt))

        copyCol.AutoFill Destination:= DestRange, Type:=xlFillDefault

    End With

 

[Fluff]

Do you want to copy both columns the number of times in E19?

 

[jocker_boy]

Do you want to copy both columns the number of times in E19?

Yes.

 

[Fluff]

In that case how about

        Set copyCol = .Range(.Cells(1, LastCol - 1), .Cells(lastRow, LastCol))

        Set DestRange = .Range(.Cells(1, LastCol - 1).Resize(, 2), .Cells(lastRow, LastCol + DelCnt * 2))

        copyCol.AutoFill Destination:=DestRange, Type:=xlFillDefault