Respostas:
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 no seu código VBA que contém um valor a ser inserido nas células, basta soltar as aspas:
ws.Range("A" & lastRowofA & ":A" & lastRow).Value = datewanted