Edit a Macro to find 2nd to Last Populated Column & Copy

[Buns1976]

Good Morning Everyone,
The code below finds the last column in my worksheet and copies/paste special/values to another sheet. I need to edit the code to find the 2nd to last populated column
and copy/paste special.

Any help would be greatly appreciated!

Thanks,
B

Sub copypastevalues()
  Sheets("SCAN").Columns(Sheets("SCAN").Cells(1, Columns.Count).End(1).Column).Copy
  Sheets("SHIFT").Range("A1").PasteSpecial xlPasteValues
End Sub

 

[shinigamilight]

Sub copypastevalues()
  Sheets("SCAN").Columns(Sheets("SCAN").Cells(1, Columns.Count).End(1).Offset(0, -1).Column).Copy
  Sheets("SHIFT").Range("A1").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
End Sub

 

[Buns1976]

Sub copypastevalues()
  Sheets("SCAN").Columns(Sheets("SCAN").Cells(1, Columns.Count).End(1).Offset(0, -1).Column).Copy
  Sheets("SHIFT").Range("A1").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
End Sub

THANK YOU! Much appreciated!