Copy Table Range Till Last Row Using VBA

[Excel Fox]

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

[ivandgreat]

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,