Error with Loop

[Jeeremy7]

Hello,

I have a problem with one of the loop I'm trying to do and I think it's in the formula but could somoene help me ?
Also I saw that some macro run faster without Loop, is there a way to convert my code without loop ?

Here the code thanks !

   'Put the total cost plus fee at the end of each code
    Dim A As Long
    Dim B As Integer
    A = ActiveCell.Offset(0, -2)
    B = Sheets("Notes").Range("B1")
    
    Range("K13").Select
    Do Until ActiveCell.Offset(0, -8) = "Total"
        If ActiveCell.Offset(1, -2) = "" Then
            ActiveCell = A * (1 + B)
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
    
End Sub

 

[Fluff]

There is a loop.
It's a For Each loop.

 

[Jeeremy7]

Ok and there's no End If because you take it down all the way up ?

 

[Fluff]

There's no End If, simply because there is no If statement.

 

[Jeeremy7]

It worked Fluff thanks ! :D

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Jeeremy7]

How about

Sub Jeeremy()
   Dim Rng As Range
  
   For Each Rng In Range("J5", Range("J" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      Rng.Offset(Rng.Count, 1).Resize(1).FormulaR1C1 = "=rc[-2]*(1+Notes!r1c2)"
   Next Rng
End Sub

Hello Fluff I just realised that when there's just one line the total amount is not there so the macro misses it.
Is there a way to correct that or have some kind of check up so we can't miss it ?

It is row 15-16 on the example

Thanks !

TEST - 1056 - Claim #1 - December 2020.xlsm
	A	B	C	D	E	F	G	H	I	J	K
1	xxxxxxxx
2	xxxxxxxx
3
4					Date	Description	Source	JE#	Amount	Cumulative
5	xxxxxxxx
6		xxxxx
7			5204	xxxxxx
8			5204		11-25-2020	xxxxx	98	J2888	46,000.00	46,000.00
9			5204		11-25-2020	xxxxx	98 (HB)	J2889	-6,900.00	39,100.00
10			5204		12-25-2020	xxxxx	106	J2959	51,700.00	90,800.00
11			5204		12-25-2020	xxxxx	106 (HB)	J2960	-7,755.00	83,045.00
12			5204		12-25-2020	xxxxx	107	J2961	38,722.00	121,767.00
13			5204						121,767.00		121,767.00
14			5301	xxxxxx
15			5301		12-04-2020	xxxxx	3206	J3131	17,900.00	139,667.00
16			5302	xxxxxx							0
17			5302		12-04-2020	xxxxx	50382678	J3089	240.00	139,907.00
18			5302		12-04-2020	xxxxx	50382679	J3090	8,550.00	148,457.00
19			5302						8,790.00		8,790.00
20			5304	xxxxxx
21			5304		11-20-2020	xxxxx	50380789	J2891	7,875.00	156,332.00
22			5304		11-20-2020	xxxxx	50380789 (HB)	J2892	-1,181.25	155,150.75
23			5304		12-17-2020	xxxxx	50384037	J2955	6,388.00	161,538.75
24			5304		12-17-2020	xxxxx	50384037 (HB)	J2956	-958.20	160,580.55
25			5304						12,123.55		12,123.55
26			6602	xxxxxx
27			6602		12-23-2020	xxxxx	6724	J2957	6,500.00	360,828.19
28			6602		12-23-2020	xxxxx	6724 (HB)	J2958	-975.00	359,853.19
29			6602						5,525.00		5,525.00
30		TOTAL EXPENSE	6602						166,105.55
31			Total								Total
32									-359,853.19
PM TM

 

[Fluff]

What should happen in that situation?

 

[Jeeremy7]

In this case the amont on column K should be the same formula calculated with the single amount.
The formula is supposed to apply on the total but when there's just one amount there's no total line

 

[Fluff]

Should it be on the row below the data or on the same row?

 

[Jeeremy7]

It should be treated as a total so on the same row... Thanks for asking I just realized that right now the 0 value was on the row below