Optimize a VBA loop

[snb]

Sub M_snb()
   sn = Sheets("data").Columns(1).SpecialCells(2)
   
   For J = 2 To UBound(sn)
      Sheets("inventions").cells(17 * (J - 2) + 2, 1) = sn(J, 1)
   Next
End Sub