VB to Add numneric vaules in column

[Rocky0201]

Hi,

I am in Sheet2--

Rows 3 to Rows "x" and Column J in Sheet1 has numberic values. Please let me know what VB code I could use to sum all of the values in Column J.

Thanks...

 

[jeffreybrown]

How about...

Sub SumColJ()
    Dim srcSht As Worksheet: Set srcSht = Sheets("Sheet1")
    Dim destSht As Worksheet: Set destSht = Sheets("Sheet2")
    Dim LR As Long: LR = srcSht.Range("J" & Rows.Count).End(xlUp).Row
    Dim rng As Range: Set rng = destSht.Range("A1")
    rng = Application.WorksheetFunction.Sum(srcSht.Range("J3:J" & LR))
End Sub

 

[Rocky0201]

Perfect Jeff... Thank you very much...

 

[jeffreybrown]

You're welcome