Sum a Column using VBA

[nachousa]

I want to Sum Column "H" starting form "H2" all the way down (rows may vary)
Then Paste My answer in "AM1"
This is what I have so far and for some reason is not working.

myRange = ActiveSheet.Range("H2", Range("H2").End(xlDown))
Range("AM1") = WorksheetFunction.Sum(myRange)

Any Ideas?

 

[JoeMo]

I want to Sum Column "H" starting form "H2" all the way down (rows may vary)
Then Paste My answer in "AM1"
This is what I have so far and for some reason is not working.

myRange = ActiveSheet.Range("H2", Range("H2").End(xlDown))
Range("AM1") = WorksheetFunction.Sum(myRange)

Any Ideas?

Try this:

 Set myRange = ActiveSheet.Range("H2", Range("H2").End(xlDown))
Range("AM1") = WorksheetFunction.Sum(myRange)

 

[lenze]

How is it not working?? It worked for me, although I might do it differently

Sub Add2()
Dim LR As Long
LR = Cells(Rows.Count, "H").End(xlUp).Row
Range("AM1") = Application.WorksheetFunction.Sum(Range("H2:H" & LR))
End Sub

lenze

 

[Datsmart]

Need to adjust your Range code:

MyRange = ActiveSheet.Range("H2:H" & Range("H2").End(xlDown).Row)
Range("AM1") = WorksheetFunction.Sum(MyRange)

 

[nachousa]

Thanks to all.

 

[nachousa]

what if for some reason have to add up a whole column, but then they tell me to subtract the last 3 numbers of that column. The rows vary so how could I do this??

 

[lenze]

Do you mean exclude??

Sub Add2()
Dim LR As Long
LR = Cells(Rows.Count, "H").End(xlUp).Row
Range("AM1") = Application.WorksheetFunction.Sum(Range("H2:H" & LR-3))
End Sub

lenze