Passing the Used Range to a range object...

[tommy bak]

I don't know if it's better but it works for me

With wTscWorkbook.Sheets("Sheet1")
        Set rng = wTscWorkbook.Sheets("Sheet1").Cells(1, .UsedRange.Columns.Count - 7)
        End With
        rng.Resize(1000, 8).Copy wmaster.Sheets("Raw Data").Range("B1")

Br
Tommy Bak