Compile Error, selecting range across columns with variable start and end row

[Will85]

I know my code is hobbled together, but I cannot figure out the syntax to select a range with two variables.

I get a compile error on the Range(x&":"&y).Select


Sub Find_zero()

Dim x
Dim y

Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Select
x = ActiveCell.Address
Selection.End(xlDown).Select
ActiveCell.Offset(, 1).Select
y = ActiveCell.Address

Range(x&":"&y).Select
Selection.ClearContents

End Sub

 

[Fluff]

Try

Range(x, y).ClearContents

 

[Fluff]

Slight change try

Sub Find_zero()

Dim x as Range
Dim y as Range

Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Select
Set x = ActiveCell
Selection.End(xlDown).Select
ActiveCell.Offset(, 1).Select
Set y = ActiveCell

Range(x, y).ClearContents

End Sub