macro beginner error

Hi, I'm a complete macro noob. but i think I've got this worked out, at least in principle. I'm trying to use a value in Sheet1.Range("A1") to move to a certain row in Sheet2 and add a value. this is my code so far:

Sub test()
'
' test Macro
' Macro recorded 11/27/2007 by none
'

'
Dim y As Integer
y = ActiveSheet.Range("A1").Value
Sheets("Sheet2").Select
ActiveSheet.Range.Cells(y, 1) = "some value"
End Sub

I get an error on the last line : ActiveSheet.Range.Cells(y, 1) = "some value"

does anyone have any insight on to what is going wrong.

Thank you