Extending the range of the current code

Hi Forum

Below is some code, currently the code displays only in one row specifically cells A1,B1,C1, I need the same functions to happen for an additional 9 rows. Ive tried and failed for the last couple of hours trying to adjust it.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("$B$1").Value = Range("A1").Value - Range("C1").Value
        Range("C1").Value = Range("A1").Value
        
    
        
          End If
        
    End Sub

Any help would be greatly appreciated

1) please note that moderator edited your post and added code tags - see http://www.excelforum.com/forum-rule...rum-rules.html why
2) Try:

Private Sub Worksheet_Change(ByVal Target As Range)
dim cell as range
If not intersect(Target, Range("A1:A10")) is nothing then 
  for each cell in intersect(Target, Range("A1:A10"))
    cell.offset(0,1).Value = cell.Value - cell.offset(0,2).Value
    cell.offset(0,2).Value = cell.Value 
  next cell
End If

End Sub

You should also really disable events if you are going to change cells in a Change event.

Basically - yes, but here we change only "non-triggering" cells, so for changed cells cell.offset(0,x), where x=1;2

intersect(Target, Range("A1:A10"))

Is Nothing

I know but you're still doing unnecessary processing by raising the event again, and if the code changes in future it will be easy to overlook (at first anyway!). IMO, it's better practice to disable events if you're going to do something that will raise that event again.

As usually - there are pros and cons.
I am not 100% convinced.
You mentioned pro, so let me raise con
If for some reason code stops while events are disabled, they will remain disabled until: either explicitely enabled by user (rather experienced one only) or excel is restarted.
Especially for less experienced users it can be really frustrating situation.

Just to show coys1717: code which includes Rory suggestion could be:

Private Sub Worksheet_Change(ByVal Target As Range)
dim cell as range
If not intersect(Target, Range("A1:A10")) is nothing then 
  for each cell in intersect(Target, Range("A1:A10"))
    application.enableevents = false
    cell.offset(0,1).Value = cell.Value - cell.offset(0,2).Value
    cell.offset(0,2).Value = cell.Value 
    application.enableevents = true
  next cell
End If
End Sub

That's what error handlers are for.