>>264
＞A列からH列までフィルタ
＞A1-F1まで
どっちかわからんからとりあえずH列にしておいたぞ

あと、この部分は環境によって変わるから適宜直してくれ。
2016/1/2→1/2/2016となるように並び替えている。そのままだと動かないかもしれない。
Criteria2:=Array(2, mydate_sp(1) & "/" & mydate_sp(2) & "/" & mydate_sp(0))

分からなければまた聞いてくれ

Sub Macro1()
'日付入力
Do
mydate = InputBox("日付を入力してください。yyyy/m/d")
Loop Until IsDate(mydate)
'設定されていれば解除
Set myRange = ActiveSheet.AutoFilter
If TypeName(myRange) = "AutoFilter" Then
Cells(1, 1).AutoFilter
End If
'オートフィルタ設定
mydate_sp = Split(mydate, "/")
Columns("A:H").AutoFilter
ActiveSheet.Range("$A:$H").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(2, mydate_sp(1) & "/" & mydate_sp(2) & "/" & mydate_sp(0))
End Sub

>>265
一気に作ろうとせずに一個一個分けて作っていったほうがいいんじゃないか
かなりこんがらがってる気がするぞ
あと見てもらうならインデントぐらいはちゃんとした方がいいと思う