VBA Question about Skipping Rows - HELPppppp

[RudeBoy]

I have a row count of 13
Can I skip rows 7 & 8?

How would I code that up in Visual basic?




Sub Worksheet_Activate()
rowcount = ActiveSheet.UsedRange.Rows.Count
Range(Cells(9, 1), Cells(rowcount, 13)).Select

Selection.Sort Key1:=Range("F9"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A1").Activate
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub