Копировать с листа на лист в разных книгах с условием ЕСЛИ

Question

Я пытаюсь скопировать диапазон из одного листа в другой в разных книгах с условием «IF» в столбце «A», например,

Если столбец «A» равен «H», тоскопировать из диапазона: «B» в «DJ» из test.xls / worksheet1 в «A1» в test1.xls / worksheet1 else Если столбец «A» равен «D», то скопировать из диапазона: «B» в «C» изtest.xls / worksheet1 в "A1" в test1.xls / worksheet1

Мне удалось скопировать только первый диапазон в test1.xls / worksheet1, но я попробовал несколько условных методов для второго диапазона.Кажется, я не могу этого сделать.

Мой код:

`Sub OpenAndCopy()
 Dim wbCopy As Workbook
 Dim wsCopy As Worksheet

 Dim rngCopy As Range
 Dim wbPaste As Workbook
 Dim wsPaste As Worksheet
 Dim rngPaste As Range
 Dim lRow As Long
 Dim lCol As Long 

 Set wbCopy = Workbooks.Open("C:\TEMP\TEST.XLS") 'change path
 Set wsCopy = wbCopy.Worksheets("Sheet1")
 lRow = Cells(Rows.Count, 1).End(xlUp).Row
 lCol = Cells(1, Columns.Count).End(xlToLeft).Column
 Set rngCopy = wsCopy.Range("BK")

 Set wbPaste = Workbooks("TEST1.XLS")
 Set wsPaste = wbPaste.Worksheets("Sheet1") 'paste to different sheet?
 Set rngPaste = wsPaste.Range("A1") 'change this if needed

 rngCopy.Copy
 rngPaste.PasteSpecial
 wbCopy.Close

 End Sub`

Цените любые комментарии и помощь / помощь, которые я могу получить, чтобы вставить правильный VBA, чтобы сделать это без ошибок.Большое спасибо.