Hola amigos expertos en macros,

Estoy recien iniciando en el tema de macros, cual es muy interesante y lleno de de mucha informacion,

Ando trabajando una Macros la cual me permite procesar mucha informacion de unos formatos en excel los cuales no cambian para nada de celdas,

ejemplo:

J14, J15,C22,I21

y deseo que estas se pongan en horizontal y haga los saltos de celda, quiero decir que si en algunas de estas no hay datos deje el espacio, repetandolo,

solo teng estas lineas de codigo , pero voy empezando y me gustaria saber como manipularlo mejor

necesito de su valiosa ayuda!!!

anexo codigo:

Sub Busca()

On Error Resume Next

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Application.EnableEvents = False

ActiveSheet.DisplayPageBreaks = False

Application.DisplayAlerts = False

Dim SummarySheet As Worksheet

Dim FolderPath As String

Dim NRow As Long, ultima As Long

Dim FileName As String

Dim WorkBk As Workbook

Dim SourceRange As Range

Dim DestRange As Range

Set SummarySheet = ThisWorkbook.Worksheets(1)

'INDICAR LA RUTA DONDE ESTÁN LOS ARCHIVOS

FolderPath = "C:\CotizacionesAutorizadas\PRUEBA\"

FileName = Dir(FolderPath & "*.xlsm")

'ABRIR LOS ARCHIVOS DE UNO EN UNO

Do While FileName <> ""

Set WorkBk = Workbooks.Open(FolderPath & FileName)

'PASAR LOS DATOS DE UNA HOJA A LA HOJA EN COMÚN

ultima = Range("A2").End(xlUp).Row

If ultima < 11 Then ultima = 11

NRow = SummarySheet.Range("R" & Rows.Count).End(xlUp).Row + 1

Set SourceRange = WorkBk.Worksheets(1).Range("B21")

Set DestRange = SummarySheet.Range("R" & NRow)

SourceRange.Select

Selection.Copy

ThisWorkbook.Activate

Worksheets(1).Select

Range("R" & NRow).Select

'AllUsingSourceTheme

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _

, SkipBlanks:=False, Transpose:=True

NRow = NRow + DestRange.Rows.Count

WorkBk.Close savechanges:=False

FileName = Dir()

Loop

End Sub