Makro: udskriv bestemte celler (med indhold)

Hej

Jeg vil gerne lave en makro som kun udskriver de rækker som har indhold. Dvs. der er nogle kolonner som skal udskrives "hele vejen" ned til der ikke er mere i rækkerne.

Eks.

  a b c d e

1 1 1 1 1 1
2 3 4 5 3 6
3 2 2  5 7
4
5 4 6 7 7 7
6

I ovenstående skal makroen så udskrive række 1 => 5 for kolonne a => e

Jeg der skal altså være plads til at man løbende kan "tilføje" flere rækker, og derved også udskrive disse...

Jeg har prøvet at lave en funktion som markere sidste række - men kan ikke finde ud af at integrere den i print funktionen....
-----
Sub udskriv()
ActiveSheet.PageSetup.PrintArea = ("$A$6:SelectLastCellInColumn "Q"")
ActiveSheet.PrintPreview

Function SelectLastCellInColumn(Col As Variant)
Cells(Cells.Rows.Count, Col) _
.End(xlUp).Offset(0, 0).Select
End Function
-----
Jeg vil herved have den til at vælge udskriftsområdet til at være fra A6:"den celle som vælges i funktionen "selectlastcellincolumn"

Jeg vil sætte meget stor pris på at få hjælp til hvorledes man kan lave denne slags "dynamiske" udskriftsområde

På forhånd mange tak for hjælpen...

Vh

martin