Insert columns from Sheet 2 into Sheet 1

[chrisellis250]

Hello,

I have four columns of Data with Formulas in Sheet2 columns P,Q,R and S.

I simply want to copy these columns, with formatting etc and place them between Columns O and P on Sheet1.

My current code below copies over the data in the columns on Sheet1.

Sub Procedure1()
Sheets("Sheet2").Columns("P:S").Copy Sheets("Sheet1").Range("P1")
End Sub

Any help appreciated.