How do I sum a range with last rows

[Lauren123]

I am not sure how to do this on VBA, I want to sum a range that will start on P7, and also where will it show me the answer?

Sub suma()
Dim rng As Range
Dim answer As Long


LastRows = Sheets("Draft").Range("P" & Rows.Count).End(xlUp).Row


Set rng = AD.Worksheets("Draft").Range("P7" & LastRows)


answer = Application.WorksheetFunction.Sum(rng)


End Sub

 

[cerfani]

"P7:P" & LastRows

will result in P7:P100, for example

assuming the same value for lastrow you were basically doing... P7100

 

[Domenic]

Maybe something like this...

Sub suma()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim answer As Long
    Dim LastRow
    
    Set wb = ActiveWorkbook 'change accordingly
    Set ws = wb.Sheets("Draft")
    
    With ws
        LastRow = .Range("P" & .Rows.Count).End(xlUp).Row
        Set rng = .Range("P7:P" & LastRow)
    End With
    
    answer = Application.WorksheetFunction.Sum(rng)
    
    MsgBox answer, vbInformation


End Sub

To refer to a specific workbook instead of the active workbook...

Set wb = Workbooks("Book2.xlsm")

Hope this helps!