diff --git a/Data Loading and Preparation.R b/Data Loading and Preparation.R
new file mode 100644
index 0000000..bfc6e6a
--- /dev/null
+++ b/Data Loading and Preparation.R	
@@ -0,0 +1,14 @@
+# Load and rename tables from the database
+load_and_rename_tables <- function(db_connection) {
+  account_details <- tbl(db_connection, "account_details")
+  items_master <- tbl(db_connection, "items_master")
+  transaction_summary <- tbl(db_connection, "transaction_summary")
+  fiscal_calendar <- tbl(db_connection, "fiscal_calendar")
+  merch_hierarchy <- tbl(db_connection, "merch_hierarchy")
+  daily_performance <- tbl(db_connection, "daily_performance")
+  store_comp <- tbl(db_connection, "store_comp")
+  cust_profile_data <- tbl(db_connection, "cust_profile_data")
+  store_master <- tbl(db_connection, "store_master")
+  
+  return(list(account_details, items_master, transaction_summary, fiscal_calendar, merch_hierarchy, daily_performance, store_comp, cust_profile_data, store_master))
+}