Question

I had this working perfectly fine, and then for a reason unknown to me it now produces a 400 error:

Set ws = Sheets("Overview")

         LastCol = ws.Cells.Find(What:="*", _
            After:=ws.Range("A1"), _
            LookAt:=xlPart, _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False).Column

           ws.Columns(LastCol).Copy ws.Columns(LastCol + 1)

The copy part works fine, but where it seems to fail is copying it to the new column and I cannot figure out why

Answer 1

I suggest this rather than copying anyway. There is no need to involve the clipboard here:

       ws.Columns(LastCol + 1).value = ws.Columns(LastCol).Value