Soy nuevo en VBA y trato de seleccionar algunas columnas según el encabezado de 2 archivos y compararlos. Para lograr esto, estoy copiando la columna según el encabezado, como xx, yy, zz de 2 hojas a una hoja nueva, dejando algunas columnas en blanco para separar los datos de 2 hojas y comparar la columna. La diferencia se resaltará en rojo.

Intenté debajo del código para copiar datos, pero obtengo una suscripción fuera del rango para el archivo de destino (resaltado a continuación).

 Sub CopyByHeader() Dim CurrentWS As Worksheet Set CurrentWS = ActiveSheet Dim SourceWS As Worksheet Set SourceWS = Workbooks("ALL_01.00.xls").Worksheets(1) Dim SourceHeaderRow As Integer: SourceHeaderRow = 1 Dim SourceCell As Range Dim fl As Object Set fl = CreateObject("scripting.filesystemobject").GetFile("Result.xlsx") If fl Is Nothing Then Workbooks.Add.SaveAs Filename:="Result" End If Dim TargetWS As Worksheet **Set TargetWS = Workbooks("Result.xlsx").Worksheet(2)** Dim TargetHeader As Range Set TargetHeader = TargetWS.Range("A1:AX1") Dim RealLastRow As Long Dim SourceCol As Integer Dim Header() As Variant Dim k As Integer HeaderList = Array("xx", "yy", "zz") SourceWS.Activate For Each Cell In TargetHeader If Cell.Value <> "" Then Set SourceCell = Rows(SourceHeaderRow).Find _ (Cell.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not SourceCell Is Nothing Then SourceCol = SourceCell.Column RealLastRow = Columns(SourceCol).Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If RealLastRow > SourceHeaderRow Then Range(Cells(SourceHeaderRow + 1, SourceCol), Cells(RealLastRow, _ SourceCol)).Copy TargetWS.Cells(2, Cell.Column).PasteSpecial xlPasteValues End If End If End If Next CurrentWS.Activate End Sub