Macro pas op bepaalde rij laten starten

[KeBr]

Beste,

Ik heb onderstaande macro. Deze werkt goed, maar zou pas vanaf rij 8 mogen beginnen en tot rij 100. hoe kan ik dat aangeven?
moet wel uitgevoerd blijven worden vanuit "ActiveCell.EntireRow."

Sub rijen_tussenvoegen()

Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "***ools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "de ingegeven waarde is fout, start opnieuw", vbInformation, " "
GoTo Eind
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
Eind:

End Sub

 

[SjonR]

zo?

Sub rijen_tussenvoegen()
With ActiveCell
    If .Row > 7 And .Row < 101 Then
        xCount = Application.InputBox("Number of Rows", "***ools for Excel", , , , , , 1)
        If xCount < 1 Then
            MsgBox "de ingegeven waarde is fout, start opnieuw", vbInformation, " "
            Exit Sub
        End If
            .EntireRow.Copy
            Range(.Offset(1, 0), .Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
            Application.CutCopyMode = False
        Else
            MsgBox "Op deze rij mag je niets invoegen!", vbInformation, " "
    End If
End With
End Sub

 

[KeBr]

Bedankt voor de snelle reactie. Dit doet precies wat het moet doen.