Finding empty cells in a column of a subtotaled range and pasting in a formula

[Nikeyg]

Hello everyone

I'm currently working with a range of data that I need to subtotal, but after subtotaling I need to input formulas on the subtotal lines to reference the data in the subtotaled line one row above (the data filtered out).

I'm currently using this for column A, but obviously this is running it constantly all the way down the worsksheet

    Dim ws As Worksheet    Set ws = ActiveSheet
    For Each cell In ws.Columns(1).Cells
        If IsEmpty(cell) = True Then cell.Select
        
    ActiveCell.FormulaR1C1 = "=+R[-1]C"
    Next cell

Once done I need to repeat these steps for columns G, H, I, J, N and O.

Thanks in advance for the help.

 

[Nikeyg]

Slight update
I've found this to work with the formula I want to paste in, and I'm just repeating this code for each column I want it to happen to

Set wks = ActiveSheetWith wks
    Range("A1").Select
   col = ActiveCell.Column
   'or
   'col = .range("A1,G1,H1,I1,J1,N1,O1,V1").column


   Set rng = .UsedRange  'try to reset the lastcell
   LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
   Set rng = Nothing
   On Error Resume Next
   Set rng = .Range(.Cells(2, col), .Cells(LastRow, col)) _
                  .Cells.SpecialCells(xlCellTypeBlanks)
   On Error GoTo 0
   If rng Is Nothing Then
       MsgBox "No blanks found"
       Exit Sub
   Else
       rng.FormulaR1C1 = "=+R[-1]C"
   End If

The only issue is that this brings the data down to the last used row, which includes the Grand total line of the Subtotal.
Any idea how I can get it to not use that row?

 

[DanteAmor]

Try

LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row - 1

Or

LastRow = .Range("[COLOR=#ff0000]B[/COLOR]" & Rows.Count).End(xlUp).Row - 1  'Change "B" to the column with the total