Write to cell [Excel macro]

sub write_cell
    Range("a1").value = "Some Text"
end sub