You need to use 'Set' here
Set scheme_data = Sheets("TEST").Range("B2:P100")