Copying cells till blank rows end

[SOS]

Hi all,

I have data in A2, then blank till A18 (variable number each time), then data in A19 and blank till A35 (and more and more).

Using VBA how would I code to copy A1 into every cell till A18, then copy A19 into every cell till A35 and so on.

Perhaps using SpecialCells(xlTypeConstant) or something?

Thanks in adance

Seamus

[SOS]

Should have done some more searching before posting - I found the answer.

Please Login or Register  to view this content.

[royUK]

Why not adapt the code that I gave you earlier?

Please Login or Register  to view this content.

[MickG]

Hi Here's an alternative

Please Login or Register  to view this content.

Regards Mick

[SOS]

Roy,

That code appears to say:

If A2 is not empty then A3's value = A1's Value.

So if I have data in A2 and want it copied down to A10 your code takes A1's value (header cell) and places it in A3, then takes A2's value (hospital name) and places it in A4 and so on.

Sorry

Seamus