Welche Aktualisierung kann mit dem Sub vorgenommen werden, um mit dem Kopieren in der Kopfzeile zu beginnen?

Question

Dieser Unterpunkt kopiert ein Blatt von einem anderen Blatt. Die Länge ist variabel, daher habe ich LastRow verwendet. Ich möchte den Sub aktualisieren, um nicht das ganze Blatt zu kopieren, sondern aus dem Header in wb2 in die letzte Datenzeile zu kopieren. Die Kopfzeile wird jedes Mal in einer anderen Zeile angezeigt. Der Spaltenkopf in Spalte "A" ist "Client". Der Header in der letzten Spalte ist "Last"

Sub CopySheetsl_()

Set wb1 = Workbooks("macro..xlsm") 
Set wb2 = Workbooks.Open("L:\ Report.xlsx") 

LastRow = wb2.Sheets("Page1_1").range("A:Y").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

wb1.Sheets("Carrier").range("E1", "BU1" & LastRow) = wb2.Sheets("Page1_1").range("A1", "BQ1" & LastRow).value ' CopySht 'Range("A11", "I11" & LastRow).Value 

wb1.Close 
wb2.Close 

End Sub

Answer 1

Sie benötigen Range.CurrentRegion

verwenden

ich diese bearbeiten werde, wie es schwierig ist zu lesen der Code im Kommentar:

Sub test() 
Dim strAddress As String 

strAddress = Sheets(2).Range("A1").CurrentRegion.Address 

Sheets(1).Range(strAddress) = Sheets(2).Range(strAddress).Value 
End Sub