Addition by vba

[hdgfss]

calculate and add all the data in column G and paste the result in K4(only the result not formula)
note- 1st row contains headers so ignore the first row
The file will be located in C:\Users\sk\Desktop and file name is sample.xlsx
file is not opened so we have to open the file by vba and do the process and save it and close it
vba will be added in a seperate file process.xlsm
both files are located in same place

 

[mohadin]

How about

Sub Doit()
 Workbooks.Open Filename:="C:\Users\sk\Desktop\sample.xlsx"
  Set wb = ActiveWorkbook
 a = Application.Transpose(Range("g2", Cells(Rows.Count, "g").End(xlUp)))
Range("k4") = Application.Sum(a)
wb.Save 
wb.Close
End Sub

 

[hdgfss]

Thnx Alot for giving ur Precious Time and Great Support to this post
Have a Great Day Mana Sir
Problem Solved

 

[mohadin]

Glad to hear that
Thank you for the feedback
Be happy

 

[hdgfss]

Thnx Alot for giving ur Precious Time and Great Support to this post
Have a Great Day Mohadin Sir