This works:

Set InvoiceNameRng = _
ThisWorkbook.Worksheets("Sage Import").Range("B2:B" & Range("B2").End(xlDown).Row)