Udprintning af varierende antal sider

Jeg har et ark af varierende størrelse som jeg printer ud med følgende makro:

Sub Print1()
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("j1"), Copies:=1, Collate _
        :=True
End Sub

J1 angiver hvor mange sider der skal printes ud ved at checke om bestemte celler er tomme, så tomme sider ikke udprintes. Det fungerer OK når alle celler er lige høje, men jeg har et andet ark hvor cellehøjden varierer meget (wrapped text) og metoden med at checke bestemte celler dur derfor ikke. Kan print area defineres til kun at være celler med tekst? Celler med formler ønsket altså kun printet ud, hvis formelen henter en tekst fra et andet ark.