diff --git a/NAMESPACE b/NAMESPACE
index b8cd95a..6cc58cb 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,7 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
 export(add_portfolio_flags)
-export(add_revenue_split)
 export(calculate_portfolio_financed_emissions)
 export(create_ald_flag)
 export(create_audit_file)
@@ -21,7 +20,6 @@ importFrom(dplyr,group_by)
 importFrom(dplyr,if_else)
 importFrom(dplyr,left_join)
 importFrom(dplyr,mutate)
-importFrom(dplyr,rename)
 importFrom(dplyr,select)
 importFrom(dplyr,tibble)
 importFrom(dplyr,ungroup)
diff --git a/R/add_revenue_split.R b/R/add_revenue_split.R
deleted file mode 100644
index cb8c04c..0000000
--- a/R/add_revenue_split.R
+++ /dev/null
@@ -1,61 +0,0 @@
-#' A short description of the function
-#'
-#' A longer description of the function
-#'
-#' @param has_revenue A description of the argument
-#' @param portfolio A description of the argument
-#' @param revenue_data A description of the argument
-#'
-#' @return A description of the return value
-#'
-#' @importFrom dplyr rename
-#'
-#' @export
-
-add_revenue_split <- function(has_revenue, portfolio, revenue_data) {
-  if (has_revenue) {
-    revenue_data_min <- revenue_data %>%
-      filter(!is.na(.data$company_id)) %>%
-      select(
-        -"company_name",
-        -"equity_ticker",
-        -"corporate_bond_ticker",
-        -"bloomberg_id"
-      )
-
-    initial_portfolio_value <- sum(portfolio$value_usd, na.rm = TRUE)
-
-    port_rev <- left_join(portfolio, revenue_data_min, by = "company_id", all.x = TRUE)
-
-
-    # Fill in gaps where possible
-    port_rev <- port_rev %>%
-      mutate(
-        has_revenue_data = if_else(
-          is.na(.data$has_revenue_data),
-          FALSE,
-          .data$has_revenue_data
-        ),
-        tot_rev = if_else(is.na(.data$tot_rev), 1, .data$tot_rev),
-        revenue_sector = if_else(
-          is.na(.data$revenue_sector),
-          "Other",
-          .data$revenue_sector
-        ),
-        value_usd = .data$value_usd * .data$tot_rev
-      ) %>%
-      rename(financial_sector = .data$revenue_sector)
-
-    if (sum(port_rev$value_usd, na.rm = TRUE) != initial_portfolio_value) {
-      stop("Revenue data causing duplications")
-    }
-  } else {
-    port_rev <- portfolio %>%
-      mutate(
-        has_revenue_data = FALSE,
-        financial_sector = .data$security_mapped_sector
-      )
-  }
-
-  return(port_rev)
-}
diff --git a/man/add_revenue_split.Rd b/man/add_revenue_split.Rd
deleted file mode 100644
index cd2056b..0000000
--- a/man/add_revenue_split.Rd
+++ /dev/null
@@ -1,21 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/add_revenue_split.R
-\name{add_revenue_split}
-\alias{add_revenue_split}
-\title{A short description of the function}
-\usage{
-add_revenue_split(has_revenue, portfolio, revenue_data)
-}
-\arguments{
-\item{has_revenue}{A description of the argument}
-
-\item{portfolio}{A description of the argument}
-
-\item{revenue_data}{A description of the argument}
-}
-\value{
-A description of the return value
-}
-\description{
-A longer description of the function
-}