Copy and Paste VBA many sheets

Can someone please show me how to edit the code below so it paste special values from AM to AN?

Sub InsertColumns2()

 Dim ws As Worksheet
 
 For Each ws In ThisWorkbook.Worksheets
 
    With ws
    
        On Error Resume Next
 
        .Range("AM:AM").Copy .Range("AN:AN")
 
   
        
 Next ws
  Application.ScreenUpdating = 1
 End Sub