How do I fix this VBA Code?

[keatenclarno]

Dim i As Integer
i = 20
Do While i <= 2215
    Range("Z3:Z19").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=6Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="='Look up Tables'!Zi"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    i = i + 1
Loop

I know it's wrong, but I don't understand how something like this wouldn't work. Also, how would I get it to work and still do the same thing?