Buen dia

en esta macro se copia los datos de 3 celdas --Range("A27:A29")--pero al colpiarlas ala hoja destino me pone la copia en celdas separadas,

Como podria hacerle para que me ponga la informacion de estas 3 celdas Range("A27:A29")--en una sola celda de la hoja destino

saludos...

Sub Copy_ACC_DEF_PREV()
    Dim SourceRange As Range, DestRange As Range
    Dim DestSheet As Worksheet, Lr As Long
               
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
               
    'fill in the Source Sheet and range
    Set SourceRange = Sheets("PPS Format Back").Range("A27:A29")
               
    'Fill in the destination sheet and call the LastRow
    'function to find the last row
    Set DestSheet = Sheets("BASE DE DATOS")
    'Lr = LastRow(DestSheet)
     Lr = DestSheet.Cells(Rows.Count, "J").End(xlUp).Row
               
    'With the information from the LastRow function we can
    'create a destination cell and copy/paste the source range
    Set DestRange = DestSheet.Range("J" & Lr + 1)
    SourceRange.Copy DestRange
               
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
               
End Sub