Solved: Extend Range selection Down

[fredlo2010]

Hello,

To define a range using .end(xlDown)

After I recorded my macro this is what I got:

[VBA]Range("C9:I9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents[/VBA]

I am trying to modify it to something like the one below, but it does not work. What am I doing wrong?

I am trying to select cells from C9 to I9 and then expand my selection down.

[VBA]ActiveWorkbook.Sheets("MyWorkbook") _
.Range("C9:I9", Range("C9").End(xlDown)).ClearContents[/VBA]


Thanks for the help

[Bob Phillips]

[VBA]WIth ActiveWorkbook.Sheets("MyWorkbook")
.Range(.Range("C9"), .Range("C9").End(xlDown)).ClearContents
End With [/VBA]

[fredlo2010]

Thanks a lot

I got it now

In my spread sheet column "C" is the one that will always have complete data. So I modified it to fit my needs as:

[VBA]With ActiveWorkbook.Sheets("MyWorkbook")
.Range(.Range("C9").End(xlDown), .Range("I9")).Select
End With[/VBA]