Finde / sætte print område via VBA

Jeg har et regneark hvor der kan være et vilkårligt antal rækker der er udfyldt med data
Når jeg skriver ud har jeg så brug for at kunne finde den sidste række der er udfyldt i en given kolonne - i mit tilfælde kolonne B

Altså hvis der står noget i f.eks. B25 men ikke i B26 så skal jeg have 25 som resultat til at sætte mit printområde (jeg ved at det skal starte i A1 og slutte i Hx