This macro is supposed to display the output from a spreadsheet, including
multiple items per day. Right now, it's displaying the first item and then
quitting. It used to function properly, so can you help me figure out where
the glitch is at?


' Based on the input date, this macro will pull all of the work centers,
part numbers, and the quantities due that day.
'
' Keyboard Shortcut: Ctrl+s
'
Dim LR, LR2, Ctr, Ctr2, MyLR, LC As Long
Dim rng As Range
Dim SearchDate As Date
Sheets("Output").Select
On Error Resume Next
SearchDate = InputBox("Enter the search date, 'm/d' (month/day),
example: 1/1 12/31 ")
If SearchDate = 0 Then
Application.ScreenUpdating = True
MsgBox "You clicked on 'Cancel', or you did not enter a date - macro
terminated."
Exit Sub
End If
Application.ScreenUpdating = False
LR3 = Sheets("Schedule").Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets("Output")
LR = .Cells(Rows.Count, 3).End(xlUp).Row
LC = .Cells(1, Columns.Count).End(xlToLeft).Column - 1
Set rng = .Range("C1:C" & LR)
MyLR = Application.WorksheetFunction.Match(0, rng, 0) - 1
For Ctr = 2 To MyLR Step 3
For Ctr2 = 4 To LC Step 1
On Error Resume Next
If .Cells(Ctr, Ctr2) = "#N/A" Then
'Do nothing
ElseIf .Cells(Ctr, Ctr2) = SearchDate Then
Sheets("Schedule").Cells(LR3, 1) = .Cells(Ctr - 1,
Ctr2).Value
Sheets("Schedule").Cells(LR3, 2) = .Cells(Ctr + 1,
3).Value
Sheets("Schedule").Cells(LR3, 3) = .Cells(Ctr - 1,
4).Value
Sheets("Schedule").Cells(LR3, 4) = .Cells(Ctr + 1,
3).Value
Sheets("Schedule").Cells(LR3, 5) = .Cells(Ctr, 4).Value
Sheets("Schedule").Cells(1, 5) = SearchDate
LR3 = LR3 + 1
End If
Next Ctr2
Next Ctr
End With
Sheets("Schedule").Select
End Sub