search and Copy certain columns by todays date

Hello
I am trying to copy certain columns /rows by Today's Date to a new sheet the following code copy's the ranges fine but it does the whole sheet (I only want rows with todays date to be copied )
Column "J" is the date column
I think the line with the problem is (If Len(wsSource.Range("j" & lngMyRow)) > 0 Then) but not sure
Any Help thanks

Please Login or Register  to view this content.