ExcelVBA ｎ項目ごとに改行して値を書き出す

Sub writeItem()
'---------------------------------------------
'機能：一定の項目数ごとに改行して値を書き出す
'----------------------------------------------
    'カウンタ用変数
    Dim i As Long
    '項目数を格納する変数
    Dim intItemNum As Integer
    '書出し先のシート名を格納する変数
    Dim strSheetName As String
    'スタート値
    Dim intStartNum As Integer
    '最終値
    Dim intLastNum As Integer    
    intItemNum = 16
    strSheetName = "Sheet2"
    intStartNum = 1
    intLastNum = 64    
    With Sheets(strSheetName)
        For i = intStartNum To intLastNum
            .Cells(Int((i - 1) / intItemNum) + 1, (i - 1) Mod intItemNum + 1) = i
        Next
    End With
End Sub