変数が同じなので分かりにくいですね。
Fcn　はカウントアップする変数として
行数を変数 Gyou に入れることにします。

すると　Fcn＝Fcn+1　でカウントアップするので、Fcnの初期値は 0で良いことになります。
Fcn=0+1＝1の時　Gyouは　13にするので　Gyou=gyou*3+10=1*3+10=13　となります。
つぎは、　Fcn=1+1=2　Gyou=2*3+10=16
Fcn=2+1=3　Gyou=3*3+10=19 ・・・・といった具合になります。

よって、コードは以下のように変更すればいかがでしょう

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

Dim myCVS As Workbook
Dim Gyou as long
    Open OpenFileName For Input As #1
        Set myCVS = ActiveWorkbook
        Fcn = 0


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

        

　　　　Loop
        Close #1

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