check 1st empty cell then delete column

Hi i would like to seek help if its possible to check the 1st empty cell of a column for example A1 is empty it will delete column A and then check for the next column like D1 is empty and will delete the entire column d..like looping within the range of A1:Z1 to check if the 1st row is empty.?How can i code it in VBA?

thanks for the help