Multiplication over and over given the column spacing

[DianChris]

Hello ,
I have data like the table below
can you please give me a sample script for that data,
and this data will repeat like this (right column)

Please help and thanks
?
I also ask here

multiplication over and over given the column spacing

I have data like the table below can you please give me a sample script for that data, and this data will repeat like this (right column) Please help and thanks :) I also ask here https://www.mrexcel.com/board/threads/multiplication-over-and-over-given-the-column-spacing.1147087/

www.excelforum.com

No

Activities

Price

Quantity1

Value

Quantity2

Value

Pending

Value

Other

Price

Quantity1

Value

Quantity2

Value

Pending

Value

Other

1

Bolt

10000

25​

Result for C*D (250000)​

15​

Result for C*F (150000)​

10​

Result for C*H (100000)​

prices are different​

Repeat ( K*M)​

Repeat(K*0)​

Repeat(N-L)​

Repeat(K*P)​

2

​

etc​

etc​

etc​

etc​

etc​

etc​

TOTAL​

TOTAL​

TOTAL​

TOTAL​

TOTAL​

TOTAL​

[/TR]

 

[DianChris]

Sub Try()
Dim Sh As Worksheet, sel As Range
Set Sh = Sheets("Source")

On Error Resume Next
With Sh
For Each sel In .Range("C5:C48")

i = sel.Row
.Cells(i, 5).Value = .Cells(i, 3).Value * .Cells(i, 4).Value
.Cells(i, 7).Value = .Cells(i, 3).Value * .Cells(i, 6).Value
.Cells(i, 8).Value = .Cells(i, 6).Value - .Cells(i, 4).Value
.Cells(i, 9).Value = .Cells(i, 3).Value * .Cells(i, 8).Value
Next

End With

End Sub

I have made a script for multiplication, what should the next script do so that the next column follows the existing script?

 

[DianChris]

why is the column that I target to be 0
where is the script i need to fix

Sub Perkalian()
Dim Sh As Worksheet, sel As Range, a As Integer
Set Sh = Sheets("Source")

On Error Resume Next
With Sh
For x = 0 To 4
lct = x * 7
For Each sel In .Range("C5:C48")

i = sel.Row
.Cells(i, 5 + lct).Value = .Cells(i, 3 + lct).Value * .Cells(i, 4 + lct).Value
.Cells(i, 7 + lct).Value = .Cells(i, 3 + lct).Value * .Cells(i, 6 + lct).Value
.Cells(i, 8 + lct).Value = .Cells(i, 6 + lct).Value - .Cells(i, 4 + lct).Value
.Cells(i, 9 + lct).Value = .Cells(i, 3 + lct).Value * .Cells(i, 8 + lct).Value
Next sel
Next x
End With

End Sub

why is the column that I target to be 0
where is the script i need to fix

 

[DianChris]