Hi, thanks for your reply.
I used the slice() function to get the data cleaned.
this code was used in selecting the file and the sheet which was (1)
library("xlsx")
Sheet <- read.xlsx(file.choose(), 1, header=TRUE)
#Remove the merged rows from the dataset and rename them as Master
Master <- Sheet %>% slice(3:n())