不連続なセルの値を配列に格納し、for文でループして他のブックのシートに挿入する。
Dim cellsValues As Variant
Dim fromSheet As Worksheet
Set fromSheet = Workbooks(fromWorkbook).Worksheets(fromSheetName)
cellsValues = Array( _
fromSheet.cells(1,1)……
)
Dim col As Long
For col = 0 To 130 Step 1
Workbooks(toWorkbook).Sheets(toSheetName).cells(rownum, col + 1).Value = cellsValues(col)
Next