Add contents of another cell to existing contents of cell

[CoolAuto]

In H2 I have =TODAY() formula. Need for that date to be added to cell in column F & active row. ADDED is the key word - I am going to be calling this macro from another, which sends email and this macro is meant to keep recording every date email is sent for this line item. Code I have so far is below, but getting "Run-time error'424' Object required" on line

Set Rng = Range("F" & (ActiveCell.Row)).Value

Sub AddEmDate()
Dim Rng As Range
Dim c As Range
Set Rng = Range("F" & (ActiveCell.Row)).Value

        c.Value = c.Value & ";" & Range("H2").Value

End Sub

 

[CoolAuto]

Solved myself

Sub AddEmDate()
Dim Add As Range
Dim Record As Range
Set Add = Range("H2") '.Value
Set Record = Range("F" & (ActiveCell.Row)) '.Value
Record = Record & Add & "; "
End Sub