I have not any idea to make a macro.
Please help me.
Thanks a lot.


Like this :


Sub PostToRegister()

Set WS1 = Worksheets("SHEET1")
Set WS2 = Worksheets("SHEET2")
'Figure out which row is the next row
NextRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1

'Write the important values to Register
'Write the important values to Register
WS2.Cells(NextRow, 1).Resize(1, 6).Value = Array(WS1.Range("C"), WS1.Range("D"), WS1.Range("E"), _
WS1.Range("F"), WS1.Range("G"), WS1.Range("E"))

End Sub


***But i want to to copy and collected all the data from the same number together . Afterward to collected all the data from another number together . Finally the numbers i want to see the column F.