Hi all,

I have this snippet of code


Code:
Option Explicit

Sub DeleteRows()

Dim ChkRange As Range
Set ChkRange = Range("J2:J1701")

Dim cell As Range

For Each cell In ChkRange
    If cell = "<100" Then
        cell.EntireRow.Delete
    End If
Next
End SubI wish to add it to this macro:
Sub Apps100_v2()
    Sheets("Players").Select
    Range("A2:O1701").Select
    Selection.Copy
    Sheets("A100+").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2:E1701").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("D2:D1701").Select
    Selection.Delete Shift:=xlToLeft
    Range("H2:I1701").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:L").Select
    Selection.FormatConditions.Delete
    Columns("H:K").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("E:E,G:G").Select
    Range("G1").Activate
    Selection.NumberFormat = "dd-mmm-yyyy"
    Range("B2:K1701").Select
    Selection.Sort Key1:=Range("J2"), Order1:=xlDescending, Key2:=Range("E2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortTextAsNumbers
    Range("A3").Select
    Selection.AutoFill Destination:=Range("A3:A1701")

' DOES THE SNIPPET GO HERE?

End Sub
What I am trying to achive is that once the main part of the macro is executed I want all the rows that have a value of <100 in the column "J" to have the row deleted.

So two questions:

1.Will the snippet to delete rows work?
2.I have added into the macro code where I think it should go, is this right?


Thanks for any help that you guys can give in advance.