Mange rækker

øh??

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2")) Is Nothing Then
  Range("C2") = Range("C2") - Target
End If


If Not Intersect(Target, Range("H2")) Is Nothing Then
  Range("C2") = Range("C2") + Target
End If


End Sub

Jeg kan godt kopiere

If Not Intersect(Target, Range("H2")) Is Nothing Then
  Range("C2") = Range("C2") + Target
End If
og ændre rækkenr men så skal jeg gøre det 116 gange

Kan man også efter indtastning og opdatering gøre sådan
at felterne f og er blanke istedet for der står det tal man har indtastet

Prøv med koden her:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F2:F200")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(0, -3) = Target.Offset(0, -3) - Target
        Application.EnableEvents = False
        Target.Value = ""
        Application.EnableEvents = True
    End If
End Sub

Tak for det det virker fint
vil du lave det som et svar så jeg kan afgive point

Super