Копирование пасты на основе заголовка столбца

Question

Следующий фрагмент кода отлично подходит для меня, за исключением того, что он останавливается, когда он получает пустую строку в столбце.

Я хотел бы изменить его, указав для копирования-вставки до последней строки в столбце A. Я сделал переменную LASTROW, но я не могу понять, где ее использовать.

LASTROW = Range("A" & Rows.Count).End(xlUp).Row 


Sub CopyHeaders() 
Dim header As Range, headers As Range 
Set headers = Worksheets("ws1").Range("A1:Z1") 

For Each header In headers 
    If GetHeaderColumn(header.Value) > 0 Then 
     Range(header.Offset(1, 0), header.End(xlDown)).Copy Destination:=Worksheets("ws2").Cells(2, GetHeaderColumn(header.Value)) 
    End If 
Next 
End Sub 

Function GetHeaderColumn(header As String) As Integer 
Dim headers As Range 
Set headers = Worksheets("ws2").Range("A1:Z1") 
GetHeaderColumn = IIf(IsNumeric(Application.Match(header, headers, 0)), Application.Match(header, headers, 0), 0) 
End Function 

Заранее благодарен!

Answer 1

Вы пробовали этот путь?

For Each header In headers 
    If GetHeaderColumn(header.Value) > 0 Then 
     Range(header.Offset(1, 0).Address, Worksheets("ws1").Cells(Rows.Count, header.Column).End(xlUp).Address).Copy Destination:=Worksheets("ws2").Cells(2, GetHeaderColumn(header.Value)) 
    End If 
Next