Sætte Printarea i et dynamisk regneark

hej

jeg har en opgave med at få sat det korrekte printarea i et regneark.

Antallet af kolonner i printrange er altid fast f. eks til og med kolonne "D"

  a  b  c  d  e
1 x  x  x  x  x
2 x  x  x  x  x
3    x  x
4      x
5
6

Antallet af rækker i B og C varier og koden skal teste for hvilken der er flest rækker i

Printarea i ovenstående skal således være $A$1:$D$4

Næste gang kan den se således ud

  a  b  c  d  e
1 x  x  x  x  x
2 x  x  x  x  x
3    x  x  x  x
4    x  x    x
5    x        x
6            x

Der skal kun testes på B og C

Printarea i ovenstående skal således være $A$1:$D$5

Jeg har leget med Cells(Rows.Count, 2).End(xlUp).Address, men kan ikke rigtig teste på resultatet.

kan nogen hjælpe?