Copy Rows - Paste and remove blanks

[tigerdel]

What I need is a macro that will look for the name Sheet 4 – cell c6 from the names in Sheet 3 and when it finds the name, copies the row, pastes as text and then removes the blank cells and the date above the blank cell so that it shows only the dates with H in them and the date above it

I have attached the book I am using to try out this

This is driving me nuts so any help here would be greatly appreciated