Você precisa usar a propriedade Value do objeto Range em vez da propriedade Formula:
ws.Range("A" & lastRowofA & ":A" & lastRow).Value = "datewanted"
Se datewanted
for uma variável em seu código do VBA que contém um valor a ser inserido em suas células, simplesmente elimine as aspas ao redor:
ws.Range("A" & lastRowofA & ":A" & lastRow).Value = datewanted