OK try it in this order:-

If Range("Tuesday!A5") = 1 Then
ActiveCell.EntireRow.Copy

Sheets(3).Select 'insert this new line

Range("TuesdayDateCodes!A6").Select
ActiveCell.Offset(1).EntireRow.Insert
Application.CutCopyMode = False
End If

and rename your sheet, taking out the hyphens i.e. TuesdayDateCodes