match Sheet1's column header to sheet2's column header and copy range over if matches

Information to copy are from sheet2.

It works like an index match but I want to try an alternative method.

lastrow = sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).row
lastcolumn = sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column

For Each Headers1 In sheets("sheet1").Range("a1", "h1")

For Each Headers2 In sheets("sheet2").Cells(1, lastcolumn)

If Headers1 = Headers2 Then
    Headers2.Cells(headers2.row + 1, lastrow).Copy Destination:= sheets("sheet2").Cells(Headers1.row + 1, Headers.Column)
End If

Something like that but does not work as both headers1 and headers2 never seem to match.