Excel VBA Ranges & Rows

Hi All,

Can someone please tweak this bit of code for me so instead of it looking at all rows in column "A" that it only looks at rows within a range of column "A".

I need the range to be "A1:A1107"

Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
On Error Resume Next
For Each c In Range("A1:A" & LastRow)
   If c.Value = 1 Then
        c.EntireRow.Hidden = True
    ElseIf c.Value = 2 Then
        c.EntireRow.Hidden = False
    End If

Thanks in advance