Vba Excel Read Range Values Into Principles