【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

A　　　　　B　　　　　　C　　・・・・・
日付　　りんご　　　500
日付　　みかん　　400
日付　　ばなな　　　300
日付　　りんご　　　700


現在、A列からH列までフィルタをつけており、頻繁にフィルタ検索などを使用してデータを抽出したりしております。
データ抽出の為にわざわざA1-F1までセルを移動したり、フィルタ解除したりと面倒なのでVBAの使用を検討しましたが全くうまくいきません。
InputBoxで日付入力⇒MsgBoxで抽出データ（日付、価格）を表示したいです。
ご教授いただきたくお願いします。