restructure

[MR3]

Here is my input


this is my desired output


I am trying to write code to do this desired feature to move data to specific columns based off of the numerical value in the first column. Above is my input and my desired output. Any help would be greatly appreciated.

thanks in advance

 

[Jose_Chasez]

Try this:

Sub test()
Dim x As Long
Dim lastrow As Long
Dim nm As String
lastrow = ActiveSheet.UsedRange.Rows.Count
For x = 1 To lastrow
    nm = Range("B" & x).Value
    Range("B" & x).Clear
    Range("B" & x).Offset(0, Range("A" & x).Value - 1).Value = nm
Next x

End Sub

 

[MR3]

thanks Jose! works as intended.

 

[Biz]

Try

Option Base 1
Sub test()
Dim aNames, aOffsetNo, sName As String
Dim rCells As Range
Dim i As Long
 
'Capture inputs
aOffsetNo = Range("A2", Range("A" & Rows.Count).End(xlUp)).Value
aNames = Range("B2", Range("B" & Rows.Count).End(xlUp)).Value
 
'Clear Range
Range("B2", Range("B" & Rows.Count).End(xlUp)).ClearContents
For i = 1 To UBound(aOffsetNo)
  Range("A" & i + 1).Offset(0, aOffsetNo(i, 1)) = aNames(i, 1)
Next i
End Sub

Biz