VBA - Add information to table

try it

Sub ttt()
With Range(Range("D2").Value & "_F")
    .Cells(.Rows.Count + 1, 1).Value = [e2]
End With
End Sub