vba Range begins with active cell

[Hanz77]

I'm trying to select a range to begin with the active cell and go to the last row of column Q. Following is what I have so far and it works; however, the active cell will not always be cell "I9".

Dim LastRow As Long

LastRow = [A65536].End(xlUp).Row
Range("I9", Cells(LastRow, 17)).Select

The active cell will float between I2 and I30, but will always be somewhere in column I.

This seems like it should be easy, but I keep getting an error when I try to define a Dim for the active cell. Any thoughts on how to select a range between the active cell and the last row in column Q?

Regards,
Hanz

 

[Weaver]

Replace "I9" with activecell

Range(activecell, Cells(LastRow, 17)).Select

Also, check your code. 'Select' ing cells in VB is rarely necessary in order to perform actions on them

for instance

range("A1:B10").select
selection.copy

can be replaced with

range("A1:B10").copy

and it's usually faster

PS

use

LastRow = cells(rows.count,"A").end(xlup).row

rather than

LastRow = [A65536].End(xlUp).Row

as the former won't 'scale up' to versions of excel with more than 65536 available rows.