Delete blank row, Fill blank data, and Vlookup function

Hi Expertise

im having a diffulcult time in processing my data

i have a vba script one is to delete blank rows and the other is to fill blank data from the cell above

code looks like this

Please Login or Register  to view this content.

it doestn delete the blank rows but fills the blank cell from above

how do i properly loop this code?

and can i add a vlookup function on sheet 1 so i can get the same value on sheet 2 colom H and G?

please see my attachment

Thanks for the help

Not sure what you are doing since ColumnA is blank anyway, but try this

Please Login or Register  to view this content.

Your sample does not give an example of your desired results.

Please Login or Register  to view this content.