Macro to find empty cell and select range to print selected.

I am having problems developing a macro to find the first empty cell in
the column range w14:w121.

Upon finding the first empty cell in the W column range it should off
set to column Z and do a ctrl-shift-home to select the last selected
cell up to cell A1 and print selection.

I have looked through google but cannot make sense of using ifempty or
using some other method to determine the first empty cell.

Dim rng As Range
Set rng = Range("A1").Resize(Range("W14").End(xlDown).Row, 26)
ActiveSheet.PageSetup.PrintArea = rng.Address


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

<vincentwongau@gmail.com> wrote in message
news:1147671430.993746.169540@v46g2000cwv.googlegroups.com...
> I am having problems developing a macro to find the first empty cell in
> the column range w14:w121.
>
> Upon finding the first empty cell in the W column range it should off
> set to column Z and do a ctrl-shift-home to select the last selected
> cell up to cell A1 and print selection.
>
> I have looked through google but cannot make sense of using ifempty or
> using some other method to determine the first empty cell.
>