Variable number or rows

[bamboozled]

Hi there,

I really need some expert help

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c, i As Byte, LR As Long
c = Array("A", "B", "C", "D")
If Target.Address(False, False) = "J1" Then
    Application.EnableEvents = False
    For i = LBound(c) To UBound(c)
        LR = Range(c(i) & Rows.Count).End(xlUp).Row
        Range(c(i) & "3:" & c(i) & LR).ClearContents
        Range(c(i) & "2").AutoFill Destination:=Range(c(i) & "2:" & c(i) & 1 + Target.Value)
    Next i
    Range("A15").Formula = "=A16-$I$11"
    Range("A16").Formula = "=(I6-((I9)*I5))/((I7*I8)-((I9)))"
    Range("A17").Formula = "=A16+$I$11"
    Application.EnableEvents = True
End If
End Sub

If anyone is able to help let me know and I will PM the link of the sheet - dont know if you can post links on this forum.

Right, in cells above A16 there is this code =A16-$I$11 and above that it would be =A15-$I$11 and above that =A14-$I$11 and that works fine.

A16's forumla is =(I6-((I9)*I5))/((I7*I8)-((I9))) and that works perfectly.

But, anything below A16 should be =A16+$I$11 then A17=A16+$I$11.

But whenever I enter in that formula it changes everything below A16 TO =X-Y, when it shouls be positive and it skips a few cells for example in A18 it states =A19-$I$11 when it should be =A17+$I$11 and countinue that pattern all the way downwards.


Thank you,
bamboozled.