スキルアップ・問題解決なら、モーグにおまかせ！

こんにちは、よろしくお願いいたします。
 
以下の表を必要な条件でフィルタで抽出しました
 
行　商品名　単価　備考
2　レモン　500
6　メロン　1000
12　いちご　300
 
この備考に以下の内容を一度にはりつけたいのですがどうしてもできません
同じ内容ならできるのですが、それぞれ他の内容だと、どうしてもできないのです
 
ちなみに実際、フィルターの件数は30位あるので、1つずつ貼り付けに時間がかかり、
フィルタする条件はいつも違い、貼り付けるデータもその時で違うので
以下の内容をいつもはりつけるというわけではなくて。。
 
たとえば、上の条件で３件フィルタしたら
貼り付けたいデータは以下の３件です
 
入荷は5/2
価格変動あり
貴重種類
 
と、コメントはそれぞれ違います。
一度に貼り付けはできないでしょうか・・
 
 
 

VBAになってしまうような気がします。
 
例えばK列に上から
　入荷は5/2
　価格変動あり
　貴重種類
とある場合、備考の列の3つの空白セルを選択した状態で
 
Sub test()
  Dim r As Range
  Dim i As Long
  For Each r In Selection.SpecialCells(xlCellTypeVisible)
    i = i + 1
    r.Value = Cells(i, "K").Value
  Next r
End Sub

んなっと様
 
いつもありがとうございます！
 
VBAでしか難しいのですね・・
パートなので、コードをいじってはいけなくVBAはできないのです（泣

フィルターだけでは難しいので、
 
　1. 列を 2つ追加
　2. 1つ目の列に、1からの連番をオートフィルにて設定し 現状の並び順を記録
　3. フィルターを適用後、 追加した二つ目の列に値を入れ、下までオートフィル
　　　(フィルターの適用されたデータだけに 値が入るはず)
　4. 二つ目の列、一つ目の列 の値にて、並べ替え実施
　　　ここまでで、フィルター結果と同じかつ、連続の並びになるはず
　5. 3レコードづつの入れたい値をコピペ
　6. 一つ目の列の値で並べ替え
　7. （必要に応じて追加した二つの列を削除）
 
で行けませんか？

Suzu様
 
ありがとうございます！
 
＞3. フィルターを適用後、 追加した二つ目の列に値を入れ、下までオートフィル
＞　(フィルターの適用されたデータだけに 値が入るはず)
 
これが、オートフィルできないです・・
 
＞4. 二つ目の列、一つ目の列 の値にて、並べ替え実施
＞ここまでで、フィルター結果と同じかつ、連続の並びになるはず
 
連続の並びにならないです・・・
どうしたらよいでしょうか・・

Suzu様
 
もうしわけございません！
できました！！
ありがとうございました！！