<div>
Assuming the data is in col A and you want the new data in B then…<br />
<br />
<br />
Private Sub CommandButton1_Click()<br />
Dim r As Range<br />
Dim i As Long<br />
<br />
Set r = Range(&quot;A1&quot;).End(xlDown).Of<wbr />fset(0, 0)<br />
For i = 1 To r.Row<br />
<br />
&nbsp; &nbsp; Range(&quot;B&quot; &amp;&nbsp;i).Value = Right(Range(&quot;A&quot; &amp;&nbsp;i).Value, 4)<br />
<br />
Next<br />
<br />
End Sub
</div>


Assuming the data is in col A and you want the new data in B then…


Private Sub CommandButton1_Click()
Dim r As Range
Dim i As Long

Set r = Range("A1").End(xlDown).Offset(0, 0)
For i = 1 To r.Row

    Range("B" & i).Value = Right(Range("A" & i).Value, 4)

Next

End Sub

<div>
Thanks MartinLiss.<br />
<br />
Can you amend the file and attach?<br />
<br />
Greg
</div>


Thanks MartinLiss.

Can you amend the file and attach?

Greg

<div>
I'm sorry but what file? Did you mean to attach one?
</div>


I'm sorry but what file? Did you mean to attach one?

<div>
I've amended the file to have the original column is now A.<br />
<br />
Can you include the macro? File is attached.<br />
<br />
Thanks,<br />
<br />
Greg
</div>


I've amended the file to have the original column is now A.

Can you include the macro? File is attached.

Thanks,

Greg

<div>
Sorry but there's still no file attached. And I'm on my way out the door for the night… sorry.
</div>


Sorry but there's still no file attached. And I'm on my way out the door for the night… sorry.

<div>
Sorry. Here it is. &nbsp;I am unable to make it work.<br />
<a href="https://filedb.experts-exchange.com/incoming/2012/03_w13/563146/Number-split.xlsm" target="_blank" class="file-inline" title="single column of numbers (12 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Number-split.xlsm</a>
</div>


Sorry. Here it is.  I am unable to make it work.
Number-split.xlsm [https://filedb.experts-exchange.com/incoming/2012/03_w13/563146/Number-split.xlsm]

Number-split.xlsm

<div>
I put data in col A and it worked just fine. Did you notice that it is code for a command button?
</div>


I put data in col A and it worked just fine. Did you notice that it is code for a command button?

<div>
<div class="content wysiwyg-content">
There is a column of numbers like this &quot;19840: [6396&quot;. &nbsp;I am seeking a script that will copy the last four numbers into a separate column.
</div>
</div>


There is a column of numbers like this "19840: [6396".  I am seeking a script that will copy the last four numbers into a separate column.

select specific numbers from a column of numbers in excel

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.