Good morning every one

I'm using this code to extract the whole row based on criteria.
Then it paste it in a new sheet:
Sub Button1_Click()
Dim TheRange As Range
    Dim TheCell As Range
    Set TheRange = Range("A1:C3500", Range("A65536").End(xlUp))

    For Each TheCell In TheRange.Cells
        If TheCell = "IL" Then
            TheCell.Rows("1:1").EntireRow.Cut 
Destination:=Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
        End If
    Next TheCell
End Sub
How can I limit the range so instead of cuting the whole row,
It will cut only the rang of cells I want? A5,B5,C5 for instance.

Many thanks