VBA loop from D6 to end of row and add to dictionary keys

How to Use a VBA Loop to Populate a Dictionary from Excel Rows