.PasteSpecial problem

Hey Dear Community,

I have problem figuring out , how can i make this code to copy and paste only values ( at the moment it pastes formula )

Sub CopyPaste()
Application.ScreenUpdating = False

      Dim NextCol As Long
      NextCol = Sheet15.Cells(40, Columns.Count).End(xlToLeft).Column + 1

      Sheet15.Range("AJ1:AJ75").Copy Sheet15.Cells(1, NextCol)

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Can anybody help me please?