Duplicating entire column

Hi

how do you duplicate the last column?

and why doesn't this code work?

Dim LastColumn As Long

LastColumn = Sheets("Tabelle1").Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(LastColumn).EntireColumn.Copy Range(LastColumn + 1)

p.s. I can't change this part

LastColumn = Sheets("Tabelle1").Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

because it's part of another code.