code not working as it should. info not moving 55 cells from the original

[rgriff000]

Sub Button58_Click()

If Not Intersect(Target, Range("B3:I17")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
Target.Offset(19).Value = Target.Offset(19).Value + Target.Value
Target.Offset(37).Value = Target.Offset(37).Value + Target.Value
Target.Offset(55).Value = Target.Offset(55).Value + Target.Value
Application.EnableEvents = True
End If

End Sub

this is what I currently have for a tracker I am using at work. when I type a number into cell b3 it rolls down to b22 and b40 and keeps a running total but not b58. can someone please help me fix this.

[mikeTRON]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)