How To Filter Function Using VBA

I wrote a macro coding to filter data from active sheet from specific companies by company ID that I inputted in the other sheet named "ID". The company ID only contains list of numbers. When I run the macros, it filtered out all the values even though some of the ID that I inputted in the sheet named "ID" present in the data. Below is my coding;

Sub FilterID()
Dim vCrit As Variant
Dim wsD As Worksheet
Dim wsC As Worksheet
Dim rngCrit As Range
Dim rngData As Range

[Code]....