laatste regel + 10 celecteren

[bkoppers]

met onderstaande code kan ik de laatste rij van mijn tabel selecteren, graag wil ik dat ook de volgende 10 regels worden geselecteerd, wie kan mij helpen deze code aan te passen.
(dit om de laatste regel door te voeren naar de volgende 10 regels)

Sub macro2()

Dim TheLastRow As Long
TheLastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Rows(TheLastRow).Select

End Sub

met vriendelijke groet,

B.

 

[snb]

Sub M_snb()

   msgbox activeSheet.cells(rows.count,1).end(xlup).entirerow.resize(11).address

End Sub

 

[bkoppers]

bedankt voor je reactie, echter deze code geeft een Msgbox met de 10 regelnummers die ik nodig heb, maar ik zou graag willen dat die regels ook geselecteerd werden.
kan dat.

 

[snb]

Ja, maar dat mag je zelf doen.

 

[bkoppers]

hahah, daar was ik al bang voor. dat wordt nog even puzzelen dan. Mijn kennis reikt nog niet zo ver in VBA.
maar is niet erg. Ik vind de oplossing vast wel.
Voor zo ver bedankt in ieder geval.

 

[Haije]

try this

Sub M_snb()

   activeSheet.cells(rows.count,1).end(xlup).entirerow.resize(11).select

End Sub

 

[bkoppers]

Bedankt, maar het was me net gelukt. Altijd leuk om zelf uit te vogelen. met beetje hulp van andere natuurlijk.

Bedankt allemaal.