ババ指定された基準に基づいて、ソースから宛先ワークシートに行をコピーする

私は、「allloans」というソースワークシートの行をコピーするために使用するコードを「販売」と呼ばれる宛先ワークシートに表示しました.ソースワークシートの列Aに「Y」が表示されたときに、マクロは行をコピーし、それらを貼り付けます.
宛先ワークシートで.それはすべての点で完全に動作しますが、宛先ワークシートの最初のデータが上から約10行に表示されるようにしているという事実は、現在書かれているように、コードはデータを1行目に置き、ヘッダーの下に置く
1行目に

FYI.宛先シートのデータを上書きしたいが、列見出しの上にある宛先シートの上部にある部屋を残したいと思います.
上書きします. この分野はタイトルとデータ分析用です.

答えが簡単であると確信していますが、私はVBAを持つ完全な初心者です.これがコードです.

サブコピー()
WSSOURCEとしてワークシートとしてムラ
ワークシートとしてムラwsdestin
薄型LNGDESTINROW長い
DIM RNGSOURCE AS範囲
Dim RNGCEL AS範囲
WSSOURCE=シートを設定します( "Allloans") 'Sheet1をソースシート名に編集する
SET WSDESTIN=シート(「セール」)
WSSourceを使用する
'次の行はソースワークシートの列ヘッダーを想定しているので、row8で始まります
rngsource= .range(.cells(8、 "a")、.cells(.rews.count、 "a").end(xlup))


RNGSourceの各RNGCELの場合
rngcel.value= "y"の場合
WSDESTIN
'次の行は、宛先ワークシートの列見出しを想定しています
lngdestinrow= .cells(.rows.count、 "a").end(xlup).Offset(1,0).ROW
rngcel.entirerow.copyの宛先:= wsdestin.cells(lngdestinrow、 "a")



の場合は終了 次のRNGCEL
終了SUB