convert to values numbers as text
 

I have a range that will be appended that I want to convert from a
formula to a value. The formula is a concatenation of part of one row &
the contents of another. All the contents are numbers. I want to keep
them as text to preserve leading zeros/number of characters (I
use.value=.value in other situations) because of some things that
happen further down the line.

I recorded this, and it works - I would just like to get it as clean as
possible.

Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Thanks in advance!

convert to values numbers as text
 

Thanks Tom!

I just wanted to reduce it as much as possible or see if maybe there
was another way to handle it.

Appreciate your help!