Try this:

ws1.Range("A2").Select
numberofRows =
ActiveCell.CurrentRegion.Rows(ActiveCell.CurrentRe gion.Rows.Count).Row
ws1.Range("AA2").AutoFill Destination:=Range("AA2:AA" & numberofRows),
Type:=xlFillDefault

Tom

"jazzzbo" wrote:

Would someone please show me what is the correct way to code the
following so that my AutoFill Destination goes from Cells(27,2) to
Cells(27,numberofRows)?


ws1.Range("A2").Select
numberofRows = ActiveCell.CurrentRegion.Rows.Count

Selection.AutoFill Destination:=ws1.Range("AA2:AA822"),
Type:=xlFillDefault

Thanks,
Jim Berglund
.