>>544
話がかみあってないけど、「For i = 1 to」を、「For i = 2 to 」に変更する。
3行おきになっているのは、そのままでもいいけど、変数jにした方が見やすい。

別ブックに張り付けるのは、どのブックか不明なので(新規ブックなのか既存のブックなのか等)、もっと情報がないとわかりません。

Sub calclation()

Dim i As Long
Dim j As Long

Dim MaxRow As Long
MaxRow = Sheets("保全_集計表").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To MaxRow
For j = 16 To 46 Step 3
Cells(i, j).Value = Cells(i, j - 1) + Cells(i, j - 2)
Next j
Cells(i, 29) = Cells(i, 26) + 14
Next i
End Sub