I have written the following code and cannot understand why it does not
run past the first row of information. My worksheet currently has five
rows of data and the select/case works great on the first row but it
does not move to the next row to run select/case [or so I assume]

What am I missing

Dim job As String
Names.Add Name:="OTcal", RefersTo:="=r33:s33", Visible:=True
Do
job = ActiveCell
Select Case job
Case Is = "RehabNorcran"
Range("R44:s44").Select
Selection.Copy
Range("OTcal").Select.Paste
ActiveSheet.Copy
Case Is = "RehabCarman"
Range("R44:s44").Select
Selection.Copy
Range("OTcal").Select
ActiveSheet.Paste
Case Is = "Shop- Day"
Range("R47:s44").Select
Selection.Copy
Range("OTcal").Select
ActiveSheet.Paste
Case Is = "Operation"
Range("r54:s54").Select
Selection.Copy
Range("OTcal").Select
ActiveSheet.Paste
End Select

Loop Until IsEmpty(ActiveCell.Offset(1, 0))
MsgBox "all calcuation is done"


End Sub