subtract columns

[montecarlo2012]

hello, I am trying to subtract columns and I write this code but results are complet wrong, is a dynamic array start A1:F250 , I am looking to subtract col B-A results on H, C-B results on I, D-C results on J etc. this is what I tryed.

Sub test()
'subtract b-a, c-b, d-c, e-d
'the results on H, I, J, K

Dim x As Integer
Dim y As Integer

    For x = 1 To 5
    For y = 1 To 4
    
        Cells(x, "h").Value = Cells(x, "h").Value - Cells(x, y).Value
        Cells(x, "I").Value = Cells(x, "i").Value - Cells(x, y).Value
        Cells(x, "j").Value = Cells(x, "j").Value - Cells(x, y).Value
        Cells(x, "k").Value = Cells(x, "h").Value - Cells(x, y).Value
    Next y
    Next x
    
End Sub

is just integers. thanks

 

[montecarlo2012]

time after I answer myself

Sub Sub_M()
         Dim Rw As Long, Cl As Long
                  For Rw = 1 To Cells(Rows.Count, "A").End(xlUp).Row
                        For Cl = 1 To 5
                                    Cells(Rw, 8 + Cl) = Abs(Cells(Rw, Cl) - Cells(Rw, Cl + 1))
                        Next Cl
                  Next Rw
End Sub