Sequential number and data transfer VBA code

Apologies if this is considered somewhat novice but I need help with an excel Macro as my vba skills arent good. The macro will copy data from a row for x (INPUT) number of times ,allocate a sequential reference number to it, and then transfer this to a new sheet, every time the process is repeated the copied data should be pasted after the last row in the new sheet and use the last sequential number generated.

How It Would Work

In the Input Cell, a manual number is put in (eg 4), the macro should copy Porder up to weight ( If possible divide the weight number by the input cell 4) and a reference number allocated to it. These 4 lines would then be transferred to a new sheet within the book.So based on the example below, I have data in a row starting in cell A1.

To Clarify the number of lines I need is based on the input cell so that would mean 4 lines whereby the weight of each packet is allocated at 5 grams (20/4= 5g). I deal in integers that when divided will always be a whole number. I also wanted to ask , when a new set of data is run would the sequential number carry on from the last run macro. Any help would be greatly appreciated.

DATA
Porder:Style: Description:Units :Weight 20: INPUT CELL (4)

MACRO
Porder:Style: Description:Units :Weight 5 :REF100
Porder:Style: Description:Units :Weight 5 :REF101
Porder:Style: Description:Units :Weight 5 :REF102
Porder:Style: Description:Units :Weight 5 :REF103

Above 4 lines transferred to a new sheet after last pasted row.