I would recommend reading some basic R e.g. this book https://r4ds.had.co.nz/.
Here are your three steps very simply using the tidyverse packages:
library(tidyverse)
library(readxl)
# (A)
my_data <- read_excel("data.xls", skip = 1) %>%
# (B)
rename(Area = X__1, Units = X__2) %>%
# (C)
mutate(Area = gsub("Coal consumption in ", "", Area))
Of course replace data.xls with the path to your data file.