Datenbereich markieren

ich möchte innerhalb eines Tabellenblattes nur den Bereich markieren/drucken, in dem Daten stehen. Bei folgendem Ausdruck wird immer nur eine Zeile markiert. Hat jemand einen Lösungsansatz für mich? (Bin bis ca. 13.00Uhr online)

Sub drucken()
For Each Rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows
this = Rw.Cells(13, 1).Value
If this > 0 Then Rw.Select
last = this
Next
Selection.PrintOut
End Sub

Vielen Dank schonmal
Matthias