将两列连接成一个具有动态范围VBA的列

Question

我正在尝试使用VBA连接Excel中的两列。 “Dim ...”之前的所有内容都只是我正在使用的工作表所需的格式化。 “昏暗......”这篇文章给我带来了麻烦，因为它将所有结果数据向上移动一行并消除了我在D2中启动的值。我正在使用的代码如下：

Range("D1").EntireColumn.Insert

 Range("D1").EntireColumn.NumberFormat = "General"

 Range("D2").Select

Dim lngLastRow As Long 
lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row

    Range("D2:D" & lngLastRow).Formula = "=CONCATENATE(R[1]C[1],"""",R[1]C[2])"

原始数据：

Raw data

结果：

Results after macro

任何帮助都会很棒，如果您还需要其他任何帮助，请告诉我！我试图包括所有相关信息。