The next 10 rows?

[Tarqs]

I have recorded the Macro below but I need to amend, to look at the next ten rows and not just the range shown in the selection. The below assumes I always want these specific cells but i need filter and sort this data so it might not be those specifics cells everytime.

Sub Test()
    Range("H10:H19").Select
    Selection.Copy
End Sub

Help much appreciated

 

[jasonb75]

'next ten rows' in relation to what?

Maybe

ActiveSheet.Cells(ActiveCell.Row, 8).Resize(10).Copy

 

[Tarqs]

Your absolutely right i should have put more information.

I have recorded this

Sub Macro7()
    ActiveSheet.Range("$A$9:$BA$1556").AutoFilter Field:=9, Criteria1:="10", _
        Operator:=xlTop10Items
    ActiveWorkbook.Worksheets("x_Master Production").AutoFilter.Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("x_Master Production").AutoFilter.Sort.SortFields. _
        Add Key:=ActiveCell.Offset(-1, 0).Range("A1:A1548"), SortOn:=xlSortOnValues _
        , Order:=xlDescending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("x_Master Production").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveCell.Offset(0, 8).Range("A1:A935").Select
    Selection.Copy
End Sub

what i need is to be able to copy the first 10 rows beneath my header row at row 9. My issue is that once filtered it could be any row number?

Hope i'm making sense?

Tarqs