R error clear first sheet after overwrite

I have big problem write and create sheet works good, but i try overwrite have problem first sheet is empty. I know i use many libraries but this task can solved with one library. If you want can you rewrite programm code more better than now please.

library(dplyr)
library(xlsx)
library(openxlsx)
require(readxl)
fname <- file.choose()
basetable<- read_xlsx(fname)
readxl:::xlsx_sheets("file.xlsx")
result_table<-basetable %>% 
  group_by(`Industry`,`Mark`,`Dens.`,`Format`,`Cons`,`Date`,`Company`)%>% 
  summarise(`Sum` = sum(`Weight`),`Count`=sum(`Cons`==0))
if ("Лист 5" %in% openxlsx::getSheetNames("file.xlsx")) {
  wb <- loadWorkbook("file.xlsx")
  writeData(wb, sheet = "List 5", result_table, colNames = F)
  saveWorkbook(wb,"file.xlsx",overwrite = T)
} else {
  xlsx::write.xlsx(as.data.frame(result_table), 'file.xlsx', sheetName="List 5",
                   append=TRUE,showNA = FALSE)
}