I tried
With Sheets("360-Tableau")
lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
lastRow = .Cells(.Rows.Count, lastCol).End(xlUp).Row
.Range(.Cells(1, 1), .Cells(lastRow, lastCol)).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("360").Range("A1"), _
Unique:=False
End With
but does not work.
I can get this to work
Sub CopyToOtherSheet2()
With Sheets("Comments-Tableau")
lastRow = .Range("A" & .Rows.Count).End(xlUp).Row
End With
Sheets("Comments-Tableau").Range("A1:E" & lastRow).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Comments").Range("A1"), _
Unique:=False
Application.DisplayAlerts = False
Sheets("Comments-Tableau").Delete
Application.DisplayAlerts = True
End Sub
Clearly not getting the Column part correct
Bookmarks