3行を結合している表にCSVの情報を入力していきたいです。
1,4,7,10,13,16,19...の行にあてはまる様にしたいです。
12行目に項目名を入力させているので、CSVの情報を13行目から入力したいです。
また、13行目からは3行ずつ結合させているので、CSV情報は13,16,19,21...行目に入力させたいです。
そうすると下記の書き出しコードになるかと思うのですが、

.Cells(Fcn + 1, 13).Value = tmp(i)　の『Fcn+1』を3行ずつ結合されているセルに入力するには
どんな数式にするかわからないので、教えていただきたいです。
よろしくお願いします。

念の為、書き出しコードの下に、CSV情報の入力したエクセルシートを記載します。

'--------書き出し
    With mySh1
Dim Fcn As Long
Dim i As Long
Dim buf As String
Dim tmp As Variant

Dim myCVS As Workbook
    Open OpenFileName For Input As #1
        Set myCVS = ActiveWorkbook
        Fcn = 12


        Do Until EOF(1)
            Line Input #1, buf
            Fcn = Fcn + 1
            tmp = Split(buf, ",")
            If Fcn >= 12 Then
                For i = LBound(tmp) To UBound(tmp)
                    If i = 2 Then
                        .Cells(Fcn + 1, 13).Value = tmp(i)
                    ElseIf i = 3 Then
                        .Cells(Fcn + 1, 1).Value = tmp(i)
                    ElseIf i = 4 Then
                        .Cells(Fcn + 1, 4).Value = tmp(i)
                    ElseIf i = 5 Then
                        .Cells(Fcn + 1, 15).Value = tmp(i)
                    End If
                        
                
                Next i
            End If

        

　　　　Loop
        Close #1

    End With
    myCVS.Close
 '-------------


【CSVシート】
   A　　　 B　　　　　 C　　　　 D　　　 E　　　　　 F
1　場所　  担当番号　  担当者　　店番　　店名　　　　売上　…
2　東京　　1111　　　　田中　　  12345　 果物屋　　　1,500…
3　大阪　　2222　　　　佐藤　　  23456　 文房具屋　　10,000…
4　京都　　1234　　　　鈴木　　　34765　 魚屋　　　　25,000…
 …
11 総計　　　　　　　　　　　　　　　　　　　　　　  36,500…

【書き出し後のエクセルシート】
A1＝売上月の日付(ex：4/1)


　　　A　…　　D …　       M　…      O …
1　4/1　　　
2
…
12　店番　　店名　　　　担当者　　 売上
13　23456　 文房具屋　　佐藤　     10,000
16　12345　 果物屋　　　田中　　　  1,500
19　34765　 魚屋　　　　鈴木　　　 25,000
 …
123