Paste selection into next available row

[PCTech]

I'm trying to copy a range of a row to another sheet if column AL contains an O. It errors out on Selection.End(xlDown).Offset(1, 0).Select.
Will someone please help me with this?

Sub CopyOdds()
Sheets("Cab. Order").Select
For i = 16 To 300 Step 1
    If Range("AL" & i) = "O" Then
        Range("c" & i & ":" & "K" & i).Select
    Selection.Copy
    Sheets("Odds").Select
    Range("C2").Select
    Selection.End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End If
Next i
End Sub

 

[PCTech]

This is how I got it to work. I don't understand why, but this works

Sub CopyOdds()
Sheets("Cab. Order").Select
For i = 300 To 52 Step 1
    If Range("AL" & i) = "O" Then
        Range("c" & i & ":" & "K" & i).Select
    Selection.Copy
        Sheets("Odds").Range("C" & Rows.Count).End(xlUp).Offset(1, 0). _
        PasteSpecial xlValues
End If
Next i
End Sub