copiar celdas especificas de un libro a otro con una condicion

[teban_gahe]

Buena tarde,  amigos del Foro ..

alguien que me pueda  asesorar sobre un código a traves de una  macro que  me permita concatenar  los   varias celdas con   caracteres siempre y cuando se cumpla  una condición con otras celdas con números.

es decir si el   las celdas de G51:G54, tienen  valor numérico   concatene  la cadena de caracteres  que tenga H1:H54, del  archivo RO_SECHU  a CONTROLROSECHU,

 

Sub CopiarCeldas()
   Dim Orig, Dest, i&, uf&
   Dim wbDest As Workbook
   Dim wsOrigen As Worksheet, wsDest As Worksheet
   
   Application.ScreenUpdating = False
   Orig = Array("A37", "D5", "D7", "D17", "A23", "I13", "I15")
   Dest = Array("K", "A", "E", "H", "J", "I", "G")
   
   Set wsOrigen = Worksheets("RO_SECHU")
   Set wbDest = Workbooks.Open(ThisWorkbook.Path & "\CONTROLROSECHU.xlsx")
   Set wsDest = wbDest.Sheets("Reporte_Diario")
   
   uf = wsDest.Range("A" & Rows.Count).End(xlUp).Row + 1
   For i = 0 To UBound(Orig)
      wsDest.Range(Dest(i) & uf) = wsOrigen.Range(Orig(i))
   Next i
   
   wsDest.Range("M" & uf) = Application.Sum(wsOrigen.Range("G51:G54"))
   
   wbDest.Close True
   Set wsOrigen = Nothing: Set wbDest = Nothing: Set wsDest = Nothing
   Erase Orig, Dest
   Application.ScreenUpdating = True
End Sub
 

 

 

RO_SECHU.xlsm

CONTROLROSECHU.xlsx