VBA to fill values to next column

[nburaq]

Hi Gents,
I need VBA code (I don't know how to do it with formula) to convert the values screenshot 1 to screenshot 2. I am dealing generally this kind of data sheets sometimes a combination of letters and numbers so if it could be a general solution It can be so nice! Thanks for help and comments!

 

[nburaq]

with formula I have a trick ;

IF(ISBKANK(A2);"";IF(A2>100;"";A2))

However then I have to write similar IF formula to distribute the values to another columns and then I have to delete original column to convert situation1 to 2

 

[Fluff]

How about

Sub nburaq()
   Dim Rng As Range
   Dim r As Long
   
   For Each Rng In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      For r = 2 To Rng.Count Step 2
         Rng(r).Offset(-1, 1).Value = Rng(r).Value
         Rng(r).ClearContents
      Next r
   Next Rng
End Sub

 

[nburaq]

How about

Sub nburaq()
   Dim Rng As Range
   Dim r As Long
  
   For Each Rng In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      For r = 2 To Rng.Count Step 2
         Rng(r).Offset(-1, 1).Value = Rng(r).Value
         Rng(r).ClearContents
      Next r
   Next Rng
End Sub

it is called magic !!! Thanks a lot! I assume Offset (-1,1) writes the values a row above and a next column, and step 2 is since they cell values are next to each other right? Nice... Any link where can I learn VBA programming for Excel only?

 

[Fluff]

You're welcome & thanks for the feedback.
There are plenty of sites on the net that deal with Excel VBA.