Need to edge out the competition for your dream job? Train for certifications today.
Range("d" & Rows.Count).End(xlUp).Formula = "=sum(d2:" & Range("d" & Rows.Count).End(xlUp).Range & ")"
Open in new window
'The following will put your sum formula in the next available cell in column D.
'declare a string variable to hold your formula
Dim formulaString As String
'populate formulaString with formula
formulaString = "=sum(d2:d" & Range("d" & Rows.Count).End(xlUp).Row - 1 & ")"
Debug.Print Now & formulaString
'put the formula in the next available cell in column d
Range("d" & Rows.Count).End(xlUp).Formula = formulaString
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.