This is the code I am using:
Sub Extract
' Extract the Contract Account Numbers and delete Column A
FinalRow = Range("A" & Rows.Count).End(xlUp).Row
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Selection.Copy
Range("B1").Select...