Makro til vise og sjule linier

Hej jeg briger følgende makro til at vise/skjule mine linier automatisk:

Sub Skjul()
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer
Dim rX As Range
svalue = 0          'søgeværdi
scolumn = 13            'søgekolonne
iLoop = WorksheetFunction.CountIf(Columns(scolumn), svalue)
Set rNa = Cells(1, scolumn)
Set rX = Columns(scolumn).Find(What:=searchvalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)

For i = 1 To iLoop
  Set rNa = Columns(scolumn).Find(What:=svalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)
  Set rX = Union(rNa, rX)
Next i
rX.EntireRow.Hidden = True
End Sub


Den er afhængig af kolonne 13.

Men kan man ikke lave den sådan at den er relativ. Hvis jeg nu sætter en ekstra kolonne ind mellem f.eks. kolonne C og D så virker min makro ikke mere, da den ikke selv rykker med i søgefunktionen.

Hjælp, please