In your code try:

InvoerBlad.Range("B1:B" & ActiveSheet.UsedRange.Rows.count)
'instead of
With InvoerBlad.Range("B1:B1000")