Excel VBA - 复制列/基于A列的粘贴

Question

我有

中的值

Column A 
1001-3000
1002-3000
1003-3000

我的日期分别为

Column B
12/1/2017
12/2/2017
12/3/2017

我目前正在运行一个提取数据的报告，因此A列可以出现一次或多次;

Column A
1001-3000
1002-3000
1002-3000
1003-3000
1003-3000
1003-3000

B列中的日期仍然反映了A列，但我试图将日期镜像到A列中的数据

Output
1001-3000 12/1/2017
1002-3000 12/2/2017
1002-3000 12/2/2017
1003-3000 12/3/2017
1003-3000 12/3/2017
1003-3000 12/3/2017

我目前有代码

Dim iv As Long

Workbooks("SourceReport.xlsx").Activate
Sheets("SourceReport").Select
iv = Range("A" & Rows.Count).End(xlUp).Row

Range("BG2:BG" & iv).Copy

Workbooks("TargetReport.xlsm").Activate
Sheets("Sheet1").Select

Range("G2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False 'esp

用于将整个列从一个工作簿复制到另一个工作簿。然而，这对列出的数据不起作用，因为它只是将所有数据直接移动到列中。