Duplicating entire column

Range(LastColumn).EntireColumn.Copy 

Range(LastColumn).offset(0,1).xlpastespecial

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.

Hi (T_T),

what about

Dim LastColumn As Long

With Sheets("Tabelle1")
  LastColumn = .Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
  .Cells(1, LastColumn).EntireColumn.Copy Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
End With

and why doesn't this code work?

A range expects to get information about the column letter and a row or a full column. VBA relies on certain rules that have to be followed. In your case both range and cells should not only be addressed by a column number.

HTH
Holger

Hi (T_T),

if you pass numeric values to the range it should be like

Range(LastColumn & ":" & LastColumn)

but this will work with the given row indicated.

You may use

Columns(LastColumn)

if you want to work with a numeric value.

HTH,
Hoiger

Similar...Data starting in A1

Sub J3v16()
With Cells(1).CurrentRegion
    .Columns(.Columns.Count).Copy .Columns(.Columns.Count + 1)
End With
End Sub

(Hi T_T),

code will search all the cells on your sheet and return the column of the last cell with any sort of value stored in it (the asterisk is a wildcard meaning any content) - but code was part of your first post of this thread...

HTH,
Holger