Thanks @HanOostdijk! I tried creating a Reprex, but it doesn't seem to work right with this kind of data. Below code shows that there are 2 empty columns which I would like remove. But basically, there are few blank columns inserted in between.
df <- data.frame(
check.names = FALSE,
`Var 1` = c(3834921.939,3855495.379,4162283.974,3956484.826,
NA),
...2 = c(NA, NA, NA, NA),
`Var 2` = c(70, 69, 65, 64),
...4 = c(NA, NA, NA, NA),
`Var 3` = c(60698.1057142857,65483.6194736842,66612.7236363636,
62579.2695)
)
Below is a screenshot of this dataframe example where 2 empty columns need to be removed.

Thank you!