Cacher is the code snippet organizer for pro developers

Sub First_Method()

  For i = 1 To 7

    On Error GoTo Tab1:

       Range("B" & i).Value = Range("A" & i).Value + i

NextCol:
    Next i

Tab1:
   Resume NextCol



End Sub

Sub Second_Method()


For i = 1 To 7
   
  On Error GoTo Tab1:
      
       Range("B" & i).Value = Range("A" & i).Value + i
       
Next i
           
Tab1:
   Resume Next
   
End Sub