Insertar fila con datos según consecutivo

Como podría hacer un código vba para insertar datos según el consecutivo de números de una columna, por ejem

Fila1  Col A               Col H     Col I        Col J       

Fila2   14                       9           AFG   1258.25

Fila3   18                    257         TRW   52.14

Fila4   104                  17           klu       1.25 

Fila 5  253

Deseo copiar los datos de la columna H a la J y acomodar insertando de acuerdo al consecutivo de la Col A copiar en columna C:E, todos los datos están en una sola hoja, en mi ejemplo debería quedar así:

Fila 1      Col A      Col C     Col D    Col E

Fila2                         9            AFG    1258.25

Fila3       14

Fila4                       17          klu          1.25

Fila5 18

Fila6 104

Fila7 253

Fila8                    257       TRW         52.14