Try this:-

If Range("Tuesday!A5") = 01 Then
Range ("Tuesday-Date-Codes!A6").Select
ActiveCell.EntireRow.Copy

Sheets(3).Select 'insert this new line

ActiveCell.Offset(1).EntireRow.Insert
Application.CutCopyMode = False
End If