Macro to Add Spaces to End of Each Cell Value

I'd like to add two spaces to the end of each cell in a range, starting from A1 and going through column D (until last row). I know how to do this using formulas (=CONCATENATE(A1," ")), but I'd like a macro that will just instantly change all the values and keep them in the same cells (as values instead of formulas). Any ideas on how to do this?

Example:

Cell A1: "John"
Cell A1 after macro: "John "

Thanks!