saestickのプロフィール

シート１のデータを　ほかの複数のシートにそれぞれ集計しようと思うのですが、いくつかの箇所がうまくできません。お分かりになる方教えていただけないでしょうか。 シート1にデータがあります。 　　　　Ａ　　　Ｂ　　　Ｃ　　　　Ｄ 1　　100　　　90　　　80　　　100　　　　　　単価 2　　もも　　りんご　ぶどう　　リンゴ　　　　名称 3　　山梨　　青森　　長野　　長野　　　　　適用 4　　　5　　　　0　　　　10　　　　5　　　　　　　注文ａ 5　　　7　　　　9　　　　　2　　　　5　　　　　　　注文ｂ シート２（４行目のデータ集計・注文ｂ） 　　　A 　　　Ｂ　　　Ｃ　　　　　Ｄ １　　もも　　5　　　100　　　　山梨 ２ ３　ぶどう　10　　　80　　　　長野 ４　りんご　　5　　　100　　　長野 　　 　シート１に注文数がある場合 シート2　シート３・・・それぞれＢ列に数量が自動で入るように設定しています。 数字が入った場合だけＡ列・Ｃ列・Ｄ列の内容がシート１のセルから自動で入るよう設定したいのですが、うまくできません。　　（シート１のデータはいろいろ変わります。） どなたか、アドバイスいただけないでしょうか？よろしくお願いいたします。

フォルダ内のcsvファイルを[ＣＳＶ貼り付け]というシートに インポートさせるＶＢＡをつくったんですが、CSVファイルがないときに エラーメッセージを出すようにしたいのですがどうすればいいでしょうか。 ---------------- Sub 読み込み() Dim Bk As Workbook Dim Rw As Long, ERw As Long Const ShName = "ＣＳＶ貼り付け" ' <-- 貼り付け先 PathN = ThisWorkbook.Path & " \ " Const FNCom = "" ' <-- ファイル名の先頭共通部分指定 Dim FileN As String Dim Cnt As Integer FileN = Dir(PathN & FNCom & "*.csv") ' <-- 拡張子を指定 sFileName = Dir(sCurDir & "\*.*", vbNormal) sCurDir = ThisWorkbook.Path & "\CSVファイル\" FileN = Dir(sCurDir & FNCom & "*.csv") ' <-- 拡張子を指定 Rw = 1 Application.ScreenUpdating = False Do Until FileN = "" Cnt = Cnt + 1 Set Bk = Workbooks.Open(sCurDir & FileN, ReadOnly:=True) Dim Rws As Long With ThisWorkbook.Sheets(ShName) .Cells.Clear Bk.Sheets(1).Cells.Copy .Range("a1") End With FileN = Dir Loop Bk.Close SaveChanges:=False Set Bk = Nothing Application.ScreenUpdating = True MsgBox " CSV読みこみ完了しました。", vbInformation End Sub