VBA宏可复制值并应用货币格式

Question

我想将值从一个单元格复制到另一个单元格，然后将Currency格式应用于目标单元格。不知何故，只有在目标单元格中​​按F2键后，此方法才能起作用。

我已经录制了一个宏（见下文）。但是，我无法粘贴粘贴的值并保留“货币”格式。对n00b代码表示歉意，我不是VBA专家。

步骤1：复制值以进行进一步处理：

Range("A8").Select
Selection.Copy
Range("BH6").Select
ActiveSheet.Paste

第2步：从col BH中的所有值中删除尾随字符串“ Af”

Columns("BH:BH").Select
Selection.Replace What:=" Af", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

第3步：使用TRIM提取金额（没有€符号和前导空格）

ActiveCell.FormulaR1C1 = "=TRIM(MID(RC[-1],3,10))"
Range("BI6").Select

到目前为止，一切正常，但是现在我想将BI6复制到AZ6（已经设置为“货币”格式）。

我正在手动进行此复制，因为我注意到粘贴值不遵循“货币”格式，因此按F2会在宏中使用硬编码值创建一行。像这样：

Range("BA6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "59"
Range("BA7").Select

所以我将无法重用该宏。

因此，我需要处理的最后一部分。