cleaner code

A little better:

    If tRun = 0 Then iRow = 5

    With Range("A3:D3")
        .Cells(1).Value = Now()
        .Copy .Offset(iRow - .Row)
    End With