returning to a cell after a macro runs
I have a spreadsheet proposal which hides and unhides rows based on if there is 0 to hide and 1, to any number of line items, to unhide the row. That works fine and I can even get the cursor to return to the original first cell or line item, but then I have to manually move to the next cell to input the next item. I cannot figure out the conditional macro to get the cursor to stop on the next line item, (row). and so on to the end of the line items, (row). I can only get it to return to the first line item. Any help is greatly appreciated. Here is the macro below.

I can see why it is returning to the first row and cell, but I can't figure out how to interupt the sequence to get to the cell I want. Everytime I try, I just stop the Macro at that point.


Private Sub Worksheet_Change(ByVal target As Range)
If Range("b71").Value = 0 Then
Rows("71").Select
Selection.EntireRow.Hidden = True
Range("b71").Select
ElseIf Range("b71").Value > 0 Then
Rows("71").Select
Selection.EntireRow.Hidden = False
Range("b71").Select
End If
If Range("b72").Value = 0 Then
Rows("72").Select
Selection.EntireRow.Hidden = True
Range("b72").Select
ElseIf Range("b72").Value > 0 Then
Rows("72").Select
Selection.EntireRow.Hidden = False
Range("b72").Select
End If
If Range("b73").Value = 0 Then
Rows("73").Select
Selection.EntireRow.Hidden = True
Range("b73").Select
ElseIf Range("b73").Value > 0 Then
Rows("73").Select
Selection.EntireRow.Hidden = False
Range("b73").Select
End If
If Range("b74").Value = 0 Then
Rows("74").Select
Selection.EntireRow.Hidden = True
Range("b74").Select
ElseIf Range("b74").Value > 0 Then
Rows("74").Select
Selection.EntireRow.Hidden = False
Range("b74").Select
End If
If Range("b75").Value = 0 Then
Rows("75").Select
Selection.EntireRow.Hidden = True
Range("b75").Select
ElseIf Range("b75").Value > 0 Then
Rows("75").Select
Selection.EntireRow.Hidden = False
Range("b75").Select
End If
If Range("b76").Value = 0 Then
Rows("76").Select
Selection.EntireRow.Hidden = True
Range("b76").Select
ElseIf Range("b76").Value > 0 Then
Rows("76").Select
Selection.EntireRow.Hidden = False
Range("b76").Select
End If
If Range("b77").Value = 0 Then
Rows("77").Select
Selection.EntireRow.Hidden = True
Range("b77").Select
ElseIf Range("b77").Value > 0 Then
Rows("77").Select
Selection.EntireRow.Hidden = False
Range("b77").Select
End If
If Range("b78").Value = 0 Then
Rows("78").Select
Selection.EntireRow.Hidden = True
Range("b78").Select
ElseIf Range("b78").Value > 0 Then
Rows("78").Select
Selection.EntireRow.Hidden = False
Range("b78").Select
End If
If Range("b79").Value = 0 Then
Rows("79").Select
Selection.EntireRow.Hidden = True
Range("b79").Select
ElseIf Range("b79").Value > 0 Then
Rows("79").Select
Selection.EntireRow.Hidden = False
Range("b79").Select
End If
Application.Goto Reference:=Worksheets("POS System Information & Quote").Range("g31")
End Sub

I am a beginner and appreciate your help.