Hi
i want to Sum Cell Values Until Blank Cells
This my Code But Not working please advise.
i want to sum in Columns Value "R" and Value "S" when Blank Cells
Sub sum()
Dim cell As Range, rngSum As Range, rngData As Range
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("RPA")
Set rngData = ws.Range("R4", ws.Cells(Rows.Count, "R").End(xlDown))
For Each cell In rngData
If cell = "" Then
Set rngSum = ws.Range(cell.Offset(1), cell.Offset(1).End(xlDown))
cell = "=SUM(" & rngSum.Address(0, 0) & ")"
End If
i want to Sum Cell Values Until Blank Cells
This my Code But Not working please advise.
i want to sum in Columns Value "R" and Value "S" when Blank Cells
Sub sum()
Dim cell As Range, rngSum As Range, rngData As Range
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("RPA")
Set rngData = ws.Range("R4", ws.Cells(Rows.Count, "R").End(xlDown))
For Each cell In rngData
If cell = "" Then
Set rngSum = ws.Range(cell.Offset(1), cell.Offset(1).End(xlDown))
cell = "=SUM(" & rngSum.Address(0, 0) & ")"
End If