ｆ4から右方向に1から28ごとに連続番号を入れたい

Windows7とExcel2007でマクロ作成中の初心者です。 (1)縦の行に連番を振るコードはたくさんありますが、横に連番を振る コードは皆無です。 (2)教えて頂きたいのは、あるセルＦ4から、右横方向に1から28までの番号を振りたいです。そして２９番目からまた、右方向に1から28まで番号を振ります。これを繰り返します。 (3)ただし、今の番号を振る行の下の行の最終列までで終了したいです。 よろしくお願いします。 以下のような縦の例は数え切れないほどサンプルがあります。 Sub 横に番号を振る() Dim i As Long With ThisWorkbook.Worksheets(1) For i = 1 To 28 .Cells(i, "A").Value = i Next i End With End Sub