シートの内容コピーマクロについて

質問

エクセルシートに作成したシートのデーターを、別シートに自動で反映させてたいと思っております。
該当する文字を入力するだけでマクロを使用してその下にある数字を全てコピーできるようしたいと思っております。

添付シートを参照して頂ければと思いますが、シート1の元データーから、別シート2に文字を返して、その下にある文字が自動で反映できるような仕組みを構築したいと考えております。

添付は抜粋で元データーは400件以上あり、シート1の基本となる大元は、縦軸が800セル　
横軸（時間軸）で、305セルまで使用しており、そこに順不同で品目と、下の数値が違うデータが入力させれております。

そこで、品目だけ入力すればその下の数字が自動で反映出来ればと思っております。
下記マクロですと、シート1の元データーがシート2へ全てが反映させれません。
何処を変更すればよろしいのでしょうか？

-----------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim cnt As Long, c As Range, r As Range, myRng As Range, wS As Worksheet
Set wS = Worksheets("Sheet1")
If Target.Count = 1 Then
If Target <> "" Then
Set c = wS.Cells.Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Set myRng = c.CurrentRegion
For Each r In myRng
cnt = cnt + 1
If r = c Then Exit For
Next r
If Target.Column - cnt + 1 > 0 Then
myRng.Copy Target.Offset(, -cnt + 1)
Else
MsgBox "左側列数が不足です。"
Exit Sub
End If
Else
MsgBox "該当データなし"
With Target
.Select
.Value = ""
End With
Exit Sub
End If
End If
End If
End Sub 'この行まで
----------------------------------------------------------------------------------------------------

トラックの搬入時間管理の為、タイムリーな処理が必要な為、お詳しい方のお知恵をお借りできればと思いいます。　お忙しい所申し訳ありませんが、どなたかお力添えをよろしくお願いいたします。

回答No.1

imogasi

質問の内容がよく伝わらない。
補足希望。
ーー
大きな処理は＞トラックの搬入時間管理の為、らしいが画像のシート例の内容が抽象的すぎて、どこが注目点かよくわからない。
わたしの持論では、画像というのは、うまい説明者が説明しないと、趣旨はよく伝わらないと思う。画像が見えているだろうから、わかるはず、というのはうそだと思う。
もっと、「処理してほしい内容」を、「言葉」で表現できる訓練をしてほしい。
人間が紙と鉛筆でやる場合のことを念頭に作業を、１歩１歩文章化してみたらうまく説明できると思う。
例
・「りんご」に当たるものをたとえばＢ１セルに入力。
・「りんご」をどのシートの（多分どの行？列を対象か）のどの範囲を検索し、
見つかった場合、どの範囲のデータを、どのシートのセル範囲にもってくるのか
コピー貼り付け（値のみ）でよいのか。
（それは「別シート」のどの行、列やセル範囲に持ってくるのか。）
・「りんご」は探索範囲に、複数出現しないのか。
ーーー
ＶＢＡコードを載せたから、聞きたいことが判るというのも嘘。初心者が自分流に書いている場合が多いのと、回答者が読み解くには時間がかかる。
自分のＶＢＡコードは、ないもの（参考までに添付はしても）として質問したほうがよい。
ーー
どの点がうまく行かないのか、エラーになるのか、を詳説するのも必要。
この質問全体が丸投げ的で、小生の経験から、問題点をよく考え抜いたら、壁（行き詰まった点）は「１センテンスに」表現できる場合が多い。

補足

大変失礼をいたしました。始めてでしたので、とても参考になりましたありがとうございます。
補足説明させて頂きます。

sheet1 の、エクセルシート上にランダムに”りんご”や”いちご”などの品名が記載されております。仮にりんごが横　”ｋ”　縦”5”の所に記載されており、その下に縦+1～+13段　横-15～+3　のセルに”1”と数値が記入されております。その”1”の文字も色分けがされております。
そのシート全体が元となり、sheet2 の　横　”Ｂ”　縦”23”のセルに”りんご”と記入したら
その下の”1”と色がそのまま反映されるようなマクロを組みたいのですが、どのようにすればよろしいのでしょうか。よろしくお願いいたします。