Loop

Dim previousRow As Long
Sub ListItemSelect()
sched = Application.WorksheetFunction.CountA(Range("cc2:cc17"))
previousRow = 2
    For previousRow = 2 To sched + 1
        ActiveSheet.Cells(2, 1) = ActiveSheet.Cells(previousRow, 81)
        ActiveSheet.Cells(3, 1) = ActiveSheet.Cells(previousRow, 82)
        ActiveSheet.Range("CJ" & previousRow & ":FJ" & previousRow).Value = ActiveSheet.Range("T18:CT18").Value
    Next
    previousRow = previousRow + 1
ActiveSheet.Range("CJ2:FJ" & sched + 1).Copy
End Sub