Moved entire row based on date

try this

Sub a()
For arow = 83 To 164
  dep = Range("C" & arow).Value
  If dep <> "" And dep < Date Then
    LR = Cells(37, "C").End(xlUp).Row + 1
    Range("A" & arow & ":E" & arow).Copy
    Range("A" & LR).PasteSpecial xlPasteValues
    Range("A" & arow & ":E" & arow).ClearContents
    Application.CutCopyMode = False
  End If
Next
End Sub