Лично я бы укоротил его прикосновением, если все, что вам нужно, это столбцы:
For i = LBound(arr1) To UBound(arr1)
Sheets("SheetA").Columns(arr1(i)).Copy
Sheets("SheetB").Columns(arr2(i)).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Next
, как из этого фрагмента кода, в lastrow
или firstrowDB