Hoe verander ik een bereik, uitleg Resize functie

[BasHD]

For Each v In Array("GrasIngekuild", "SnijmaisIngekuild")
        
        Sheets(v).Select
        LastRow = ActiveSheet.UsedRange.Rows.Count
     
     GoTo Verder:
Verder:
        Range("A1").Select
        Rij = 1

        For teller4 = 1 To LastRow
            
            Rij = Rij + 1
            ActiveCell.Offset(1, 0).Activate
            ZoekDef1 = Left(ActiveCell.Value, 10)
            If ZoekDef1 = "Gemiddelde" Then
                        
            Range1 = ActiveCell.Offset(0, 5).Formula
            Range11 = Right(Range1, Len(Range1) - InStr(1, Range1, ",SUBTOTAL(1,"))
            Range12 = Right(Range1, Len(Range11) - InStr(1, Range11, "1") - 1)
            Range13 = Left(Range12, Len(Range12) - 2)
             
            bereik = Range(Range13).Offset(-1, 69).Address
            Bereik2 = Range(Range13).Offset(-1, 70).Address
             
            On Error Resume Next
            Cells(Rij, 75) = WorksheetFunction.Subtotal(1, Range(bereik))
            Cells(Rij, 76) = WorksheetFunction.Subtotal(1, Range(Bereik2))
            
            Cells(Rij, 1).Select
            
            End If
            
        Next teller4
        
               
    Next


End Sub

De uitkomst van Range13 = "H6:H30" = Ik wil daar "H5:H30" van maken. Hoe doe ik dat?

Via de offset ga ik van rij 6 naar 5 als begin rij maar de eindrij gaat ook 1 omhoog en dat wil ik niet. Ik heb wat met resize zitten testen maar elke keer komt het type niet overeen als ik met Range13 aan de gang ga. moet ik die dimmen met iets?

Met de huidige Offset wordt H6:H30 H5:H29 en wil dus H5:H30 hebben.

Wie kan mij hierbij op weg helpen?

Gr
Bas