Need to move to next empty cell in row from Active Cell

Hello,

I'm working on a bit of a "ticker" macro that essentially goes to a given row, types the word "Yes" in the first empty cell, then puts the date in the cell below by copying and pasting the value from a cell with the TODAY formula. I've tried a few different variations I've found online, but none are working. Here's what I've tried.

Sub Tally1()

Range("A49").Select
If Len(Range("A49")) = 0 Then
Range("A49") = "Yes"
Else: Range("A49").End(xlToRight).Offset(0, 1).Value = "Yes"
End If
'E21 is where my TODAY() formula is
Range("E21").Select
Selection.Copy

Range("A50").Select
ActiveCell.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

I've also tried replacing the LEN portion up top with:

ActiveCell.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select


What am I doing wrong? Thank you!!