make new columns from copying values from other columns

Hi
Here is my pb (I don't have much experience with macro), I have 2 columns:

Col A | Col B
0 | 0
1 | 0.22
1 | 0.51
2 | 0.45
2 | 0.13
3 | 0.95
3 | 0.55
etc | etc

In column A each number is repeated twice (appart from 0).
I would like to create 4 additional columns, from the 2 previous columns, giving:

Col C | Col D | Col E | Col F
1 | 0.22 | 1 | 0.51
2 | 0.45 | 2 | 0.13
3 | 0.95 | 3 | 0.55
etc

thanks for your help!

Maybe:

Sub lenorsk()
Dim rcell As Range
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("A2:A" & lr)

    If rcell.Value = rcell.Offset(1).Value Then
    
        Range(rcell.Offset(1), rcell.Offset(1, 1)).Cut rcell.Offset(, 2)
        
        rcell.Offset(1).EntireRow.Delete shift:=xlUp
        
    End If
    
Next rcell

End Sub

Thanks! It worked perfect!

You're welcome. Glad too help out and thanks for the feedback.

@ lenorsk

Welcome to the forum.

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.