VBA macro to insert row based upon set format

[hc91]

Hi,

I'm having trouble writing a macro that will work in a number of spreadsheets that are at times not consistent in their formatting.

I need the set repetition of the following:

Date StartHour
Date 6
Date 7
Date 8
Date 9
Date 10
Date 11
Date 12
Date 13
Date 14
Date 15
Date 16
Date 17
Date 18
Date 19

But unfortunately where there are complete gaps in a row of data it is ignored. Is there any vba code to search that this occurs and then insert a row with the correct date and time?

Thanks for any help with this.

[hc91]

Hi chaps,

Any help on this would be most appreciated. I'm going to give it another go but I am not holding out much hope!

[hc91]

Okay, I'm getting there.

Please Login or Register  to view this content.

This code works to insert the rows, however, I need to prevent it from adding a row where the above is 19 and the next is 6! Now I need to name the date and time correctly (columns A and B). The date needs to be the same as above where the StartHour above is <> 6 and the same as below if it is 6. The StartHour needs to be the above + 1 where the above is <> 19 where it should be 6!

Thanks for any help.

[hc91]

I'm sure this code is messy as anything but I just need to add the dates and times appropriately now!