売上順位表を作成したいのですが
CSVの売上を降順にソートして、担当者、店番、店名、売上を売上順位表のエクセルに情報を反映させたいです。
毎月シートを作成しているので、シート作成と並び替えは分かったのでVBAを作成してみたのですが、CSVの情報を
エクセルに反映するVBAでつまってしまいました。
分かりづらいVBAで、すみません。ご教授のほど、よろしくお願いします。

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

【売上順位表エクセルシート】
A1＝売上月の日付(ex：4/1)
A12：A119＝店番
D12：D119＝店名
M12：M119＝担当者
O12：O119＝売上(降順)

　　　A　…　　D …　       M　…      O …
1　4/1　　　
2
…
11　店番　　店名　　　　担当者　　 売上
12　23456　文房具屋　佐藤　       10,000
13　12345　果物屋　　　田中　　　  1,500
…
119

【コード】

Sub SheetCopy()

Dim myBook As Workbook
Dim OpenFileName As String
Dim myb_name1 As String
Dim myb_name2 As String
Dim mySh_name As String
Dim mySh1 As Worksheet, mySh2 As Worksheet
Dim mySh_name1 As String
Dim wSheetName As Variant
Dim wNewSheetName As Variant
Dim NewDate As Date
Dim Sh As Worksheet


    'アクティブなシート名を取得
    wSheetName = ActiveSheet.Name
    NewDate = DateAdd("m", 1, Range("A1").Value)
    wNewSheetName = Format(NewDate, "yyyy.m")
    '同名シートの有無を確認
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name = wNewSheetName Then
            MsgBox "すでに同名のシートが有りますので終了します "
            Exit Sub
        End If
    Next Sh

    'ワークシートのコピー
    ActiveSheet.Copy after:=ThisWorkbook.Sheets(Sheets.Count)

    'コピーしたシート名を変更する
    ActiveSheet.Name = wNewSheetName
    Range("A12：O119").ClearContents


     'A1セルに新しい日付を入力
    Range("A1").Value = NewDate

    '転記先シートを変数にセット
    myb_name1 = ThisWorkbook.Name
    mySh_name1 = ActiveSheet.Name
    Set mySh1 = Workbooks(myb_name1).Sheets(mySh_name1)
    'CSVファイルを開く
    OpenFileName = Application.GetOpenFilename("CSV ﾌｧｲﾙ (*.csv),*.csv")
    If OpenFileName <> "False" Then
        Workbooks.Open OpenFileName
    End If
    myb_name2 = ActiveWorkbook.Name
    mySh_name = Left(myb_name2, Len(myb_name2) - 4)
    'CSVシートを変数にセット
    Set mySh2 = Workbooks(myb_name2).Sheets(mySh_name)
   
    '並べ替えを実行する
    Range("A12:O119" & wLastGyou - 1).Sort _
        Key1:=Range("O12"), _
        Order1:=xlDescending, _
        Header:=xlNo
        
End Sub

CSVファイルの書き出し部分が書いてなかったので追記しました。
ややこしいのはCSVでの項目順番と書き出し先の順番が異なるところです。
各項目ごとにコードを書く必要があるのでちょっと長くなります。

また、sort部分のコードは2007以降は変化しています。
こちらでは2010or2013でしたので、sortのコードを修正しています。
お書きになっていた元のコードはコメントアウトしていますので
バージョンに合わせて適切に修正してください。


Sub SheetCopy()

Dim myBook As Workbook
Dim OpenFileName As String
Dim myb_name1 As String
Dim myb_name2 As String
Dim mySh_name As String
Dim mySh1 As Worksheet, mySh2 As Worksheet
Dim mySh_name1 As String
Dim wSheetName As Variant
Dim wNewSheetName As Variant
Dim NewDate As Date
Dim Sh As Worksheet
Dim wLastGyou As Long


    'アクティブなシート名を取得
    wSheetName = ActiveSheet.Name
    NewDate = DateAdd("m", 1, Range("A1").Value)
    wNewSheetName = Format(NewDate, "yyyy.m")
    '同名シートの有無を確認
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name = wNewSheetName Then
            MsgBox "すでに同名のシートが有りますので終了します "
            Exit Sub
        End If
    Next Sh

    'ワークシートのコピー
    ActiveSheet.Copy after:=ThisWorkbook.Sheets(Sheets.Count)

    'コピーしたシート名を変更する
    ActiveSheet.Name = wNewSheetName
    Range("A12：O119").ClearContents


     'A1セルに新しい日付を入力
    Range("A1").Value = NewDate

    '転記先シートを変数にセット
    myb_name1 = ThisWorkbook.Name
    mySh_name1 = ActiveSheet.Name
    Set mySh1 = Workbooks(myb_name1).Sheets(mySh_name1)
    'CSVファイルを開く
    OpenFileName = Application.GetOpenFilename("CSV ﾌｧｲﾙ (*.csv),*.csv")
    If OpenFileName <> "False" Then
        Workbooks.Open OpenFileName
    End If
    myb_name2 = ActiveWorkbook.Name
    mySh_name = Left(myb_name2, Len(myb_name2) - 4)
    'CSVシートを変数にセット
    Set mySh2 = Workbooks(myb_name2).Sheets(mySh_name)
    
  '--------書き出し
    With mySh1
Dim Fcn As Long
Dim i As Long
Dim buf As String
Dim tmp As Variant
    Open OpenFileName For Input As #1
        Fcn = 9
        Do Until EOF(1)
            Line Input #1, buf
            Fcn = Fcn + 1
            tmp = Split(buf, ",")
            If Fcn >= 11 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
 '-------------
    

    '並べ替えを実行する
    wLastGyou = mySh1.Cells(Rows.Count, 1).End(xlUp).Row
'    mySh1.Range("A12:O" & wLastGyou - 1).Sort _
        Key1:=Range("O12"), _
        Order1:=xlDescending, _
        Header:=xlNo
    mySh1.Sort.SortFields.Add Key:=Range("O12:O" & wLastGyou) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With mySh1.Sort
        .SetRange Range("A12:O" & wLastGyou)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

ありがとうございます。

ソートの件、エクセルのヴァージョンによるんですね。
知らなかったです。ありがとうございます。

また説明不足で分かりづらく、すみません。
CSVの書出し部分ですが

担当者はC2から空白までで、エクセルM12から転記
店番はD2から空白までで、エクセルA12から転記
店名はE2から空白までで、エクセルD12から転記
売上はF2から総計前のセルまでで、エクセルO12から転記

上記の転記が希望です。
またCSVデータの行は月ごとに変動があります。

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

ご教授いただいたコードで動かした際
売上の数値がコンマの頭部分が転記されてしまいました。
例えば『1,500』の場合は、『1』が転記されました。
これも私の説明不足で、すみません。
CSVのデータは、下記の様に『"",""』で区切られていました。

   A　　　 B　　　　　C　　　　D　　　E　　　F
1　"場所","担当番号","担当者","店番","店名","売上",　…
2　"東京","1111","田中","12345","果物屋","1,500",…
3　"大阪","2222","佐藤","23456","文房具屋","10,000",…
…
11　"総計","","","","","35,000",…

度々、すみません。ご教授いただければ、幸いです。
よろしくお願いします。

> CSVのデータは、下記の様に『"",""』で区切られていました。
> 例えば『1,500』の場合は、『1』が転記されました。
このようなデータを扱うのはちょっと小細工が必要になります。

作成するのが面倒なのでWeb検索するとドンピシャなページがありました。
よそ様のサイトですが参考になると思いますのでリンクを載せておきます。

エクセルVBAでダブルクォーテーションで囲まれているCSVファイルを取り込む
http://tonari-it.com/vba-csv-double-quotation/

エクセルVBAでデータにカンマが含まれてしまっているCSVを取り込む
http://tonari-it.com/vba-csv-camma/

カンマ区切りの件、教えていただいたページで勉強しカンマを外すことができました。ありがとうございます。
↓こちらも大変勉強になりました。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_csv.html

また大変面倒で申し訳ないのですが
書出しの部分がうまくいかない上に、CSVが閉じませんが何が原因なのでしょうか？
エクセルの書出し部分を三行ずつセルを統合してしまったのですが、それが
原因でしょうか？
大変ご面倒で申し訳ないのですが、ご教授のほど、よろしくお願いいたします。


'--------書き出し
    With mySh1
Dim Fcn As Long
Dim i As Long
Dim buf As String
Dim tmp As Variant
    Open OpenFileName For Input As #1
        Fcn = 9
        Do Until EOF(1)
            Line Input #1, buf
            Fcn = Fcn + 1
            tmp = Split(buf, ",")
            If Fcn >= 11 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
 '-------------

> CSVが閉じませんが何が原因なのでしょうか？
閉じるコードを書いていませんので、CVSファイルを開いたときに Set myCVS = ActiveWorkbook　としておき、
書き出しが終わったら　myCVS.Close　として閉じたらよいと思います。
Dim tmp As Variant
Dim myCVS As Workbook
    Open OpenFileName For Input As #1
        Set myCVS = ActiveWorkbook
        Fcn = 9
        
        
        


        Loop
        Close #1

    End With
    myCVS.Close
 '-------------
 
> 書出しの部分がうまくいかない
これは
> エクセルの書出し部分を三行ずつセルを統合してしまったのですが、それが
原因でしょうか？
たぶんこれが原因だと思います。
3行が結合されているのであれば、3行ごとに書き出さないといけないのでは?
.Cells(Fcn + 1, 13).Value = tmp(i)
は　Fcn+1で1行ずつ連続した行に書き出しています。
Fcn*3-2　とすると、　1、4、7・・・と3行ごとになります。
ただし、Fcn=9から開始して、11以上で書き出しているので(タイトル行を書き出さないため)
11*3-2＝31　になってしまいます。
実際は12行目から書き出すので
(Fcn-7)*3-2　といったような調整が必要と思います。


> ↓こちらも大変勉強になりました。
> http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_csv.html
書いていたことを覚えていませんでした。(-_-;)

> Fcn=9から開始して、11以上の所は、フォーマットの行を調整しようかと思い
> 3の倍数にハマる様に、Fcn=10から開始して、12以上にしたら3の倍数にハマるのかと思い、
> Fcn*3-2を記入しましたがうまくいきませんでした。
> どうしたら、よろしいでしょうか？
どのようにしたいのか理解できません。
Fcnは何から始まって、Fcnが○○のときどのような結果を得たいのですか?
Fcnの値とその結果を並べてください。
そのようになる数式を組み立てることになると思うのですが、いかがでしょうか?

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 

変数が同じなので分かりにくいですね。
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
 '-------------

カウントアップする変数の件
イメージがつきやすく、分かりやすい説明ありがとうございます。

新たに書き出していただいたコードで動かして見たのですが

.Cells(Gyou , 13).Value = tmp(i)でデバックが出てしまいました。

下記コードも入れてみたのですが、ダメでした。
If Fcn >= 12 Then

何が原因なのでしょうか？

よろしくお願いいたします。