Copy Table Range Till Last Row Using VBA

Hi,

Good day! I would like to loop on my table that will transfer the row data to sheet2 up to the last end value.

br,

ivan

Code:

---

Sub MoveTableEntire()

    With Worksheets("Sheet1")
        .Range("A1:F1").Copy Worksheets("Sheet2").Range("A1")
        .Range("A2:F" & Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)).Copy Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp)(2)
    End With
   
End Sub

---

Thanks Excel Fox,
But what i need is the output should be like in Col I to Col O, sorry i wasn't able to explain it well.

The logic is to check the first row with value in col B and lookup the next value in col C up to the last value which Col C is not available in Col B.

br,