run time error 1004

[AdityaMahajan]

Hi, could anyone help me with this problem?

Sub ButtonCode()
Dim N As Long
N = Cells(Rows.Count, "C").End(xlUp).Row + 1
Cells(N, "C").Value = (Cells(N - 1, "C").Value) * (1 - Range("Sheet2!E5").Value)

Dim X As Long
X = Cells(Rows.Count, "D").End(xlUp).Row + 1
Cells(X, "D").Value = (Cells(N - 1, "D").Value) * (1 - Range("Sheet2!E9").Value)

Dim Y As Long
Y = Cells(Rows.Count, "E").End(xlUp).Row + 1
Cells(Y, "E").Value = (Cells(N - 1, "E").Value) * (1 - Range("Sheet2!E13").Value)

Dim K As Long
K = Cells(Rows.Count, "F").End(xlUp).Row + 1
Cells(K, "F").Value = (Cells(N - 1, "F").Value) * (1 - Range("Sheet2!E17").Value)

Dim J As Long
J = Cells(Rows.Count, "G").End(xlUp).Row + 1
Cells(J, "G").Value = (Cells(N - 1, "G").Value) * (1 - Range("Sheet2!E21").Value)

Dim L As Long
L = Cells(Rows.Count, "H").End(xlUp).Row + 1
Cells(L, "H").Value = (Cells(N - 1, "H").Value) * (1 - Range("Sheet2!E25").Value)

Dim T As Long
T = Cells(Rows.Count, "I").End(xlUp).Row + 1
Cells(T, "I").Value = (Cells(N - 1, "I").Value) * (1 - Range("Sheet2!E29").Value)

End Sub

[#2]

in which line is it failing,
can u pls help?

[#3]

Cells(N, "C").Value = (Cells(N - 1, "C").Value) * (1 - Range("Sheet2!E5").Value) 

this and subsequent similar lines are the cause of error

[#4]

@AdityaMahajan  I think range needs an object to apply to.  for example Activesheet.range(...

but it would be good practice to define an object for both cells and range to apply to and for referring to a different sheet you can activeworkbook.sheets("Sheet2").range(...

[#5]

@AdityaMahajan ur code seems fine, I am able to run it in my system.

Is it possible for u to share the file?

and I hope u have not renamed the worksheet "sheet2"?